PASCAL

program qq;
var a,b,s,p : integer;
begin
writeln('Введите стороны прямоугольника');