с 12-15 февраля практическая работа

Читать параграф 16
Пробная задача к практической. Закрасить прямоугольник зеленым, если ввести с клавиатуры число большее 10 иначе крвсным

uses GraphABC;
var a:integer;
begin
Rectangle(200,300,400,100);
writeln('введите а');
read(a);

 if a >10 then

 FloodFill(320,200,clGreen)
 else
 FloodFill(320,200,clred)    ;
 end.