ИНФОРМАТИКА 10 КЛАСС . ПРОГРАММИРОВАНИЕ ПАСКАЛЬ.Написать ПРОЦЕДУРУ, которая воспринимает на вход

program yaneznayupascal;

   procedure PS;

  var m, n, S, P : integer;

begin

    write('Введите число m (длина): ');

     readln(m);

    write('Введите число n (ширина): ');

     readln(n);

    S := m*n;

    P := 2*m+2*n;

write('S = ', S);

write('P = ', P);

end;  

begin

 PS;

end.