Паскаль2

      Составим программу, которая рисует квадрат, причем длина стороны вводится с клавиатуры.

Program Chas;

  uses crt, GraphABC;

Var r:real;

 Begin

  SetWindowSize (600,750);

  Write ('Введите длину стороны квадрата (от 1 до 10)') ;

  Readln(r);

  SetPenColor(clGreen);

  SetPenWidth(5);

  SetBrushColor(clred);

  Rectangle (50,50,trunc(50+r*50), trunc(50+r*50));

  Write ('Площадь квадрата =', r*r)

End.