Ïëîùàäü è ïåðèìåòð ïðÿìîóãîëüíèêà

Program Rect;

Uses crt;

procedure RectSP(a,b: real; var S,P:real);
begin
  S := a * b;
  P := a + b;
end;
 
var 
  x,y: real; // Ñòîðîíû ïðÿìîóãîëüíèêà
  S: real;   // Ïëîùàäü ïðÿìîóãîëüíèêà
  P: real;   // Ïåðèìåòð ïðÿìîóãîëüíèêà 
 
begin
  write('Ââåäèòå ñòîðîíû ïðÿìîóãîëüíèêà: ');
  readln(x,y);
  RectSP(x,y,S,P);
  writeln('Ïëîùàäü ðàâíà ',S);
  writeln('Ïåðèìåòð ðàâåí ',P);
end.