Question

пользователь нажимает цифру от 1 до 9 и в случайном месте экрана рисуется кружок с радиусом, соответствующем нажатой цифре. Выход из программы - цифра 0. pascal

Answer 1

uses GraphABC;

var r:integer;

begin

readln (r);

while r<>0 do

begin

Circle(random(631),random(471),r);

readln (r)

end

end.