program Pr;    
var A,B,S,P:real;
begin
writeln('ВВЕДИТЕ СТОРОНЫ ПРЯМОУГОЛЬНИКА');
  readln(A,B) ;                 
   S:=A*B;

P:=2*(A+B);

 writeln('площадь= ',S:6:3)
writeln('периметр = ',P:6:3)
        end.

название программы

описание величин

вывод сообщения на экран (коментарий)

ввод данных с клавиатуры  

поиск площади

поиск периметра

вывод результата площади

вывод результата периметра

program MAX;    
var A,B,C:real;
begin
  writeln('ВВЕДИТЕ ТРИ ЧИСЛА');
  readln(A,B,C) ;                 
   if A>B then
               if A>C then writeln('max = ',A:6:3)
                      else writeln('max = ',C:6:3)
          else
               if B>C then writeln('max = ',B:6:3)
                      else writeln('max = ',C:6:3);
end.

название программы

описание величин

  вывод сообщения на экран  (коментарий)

  ввод данных с клавиатуры  

поиск максимального числа

и вывод его на экран