Krusty76  Program n_5;

 var
     a, b: real;

 begin
    write ('введите длину прямоугольника - ');
    readln (a);
    write ('введите ширину прямоугольника- ');
    readln (b);
    if a=b then
       write ('Данный прямоугольник является квадратом')
    else
       write ('Данный прямоугольник не является квадратом');
end.