Написать программу в которой пользователь должен будет ввести радиус окружности после чего на экране возникнет окружность с этим радиусом. Работа в паскале.

uses graphabc;

var radius:integer;

begin

Writeln ('Введите радиус окружности') ;

if (radius>245) then writeln ('ошибка, введите радиус меньше') ;

readln (radius) ;

setwindowsize (640,480) ;

setpencolor (clgreen) ;

setpenwidth (4) ;

circle (340,280, radius) ;

end.