Program reshenie;
var a,b:real;
begin
writeln('Введите длину и ширину прямоугольника:'); Readln(a); Readln(b);
if (a=b) then writeln('Прямоугольник является квадратом')
end.
ЛОЖЬ кодируется всегда 0, а правда 1
Сласть, каска, слон, пол, тело, еда, кран.
Процессор, внешняя память, внутренняя память, устройство управления, манитор, принтер, мышь