Составить программу, которая рисует квадрат, причем длина стороны вводится с клавиатуры; также найти и вывести площадь квадрата.
Program P1;
Uses GraphABC, Crt;
Var r: integer;
Begin
SetWindowSize (600,750);
Write ('Введите длину стороны квадрата (от 1 до 10)') ;
Readln(r);
SetPenWidth(5);
Rectangle (50,50,50+r*50, 50+r*50);
FloodFill (25+r*50, 25+r*50, clred);
Write ('Площадь квадрата =', r*r)
end.