подскажите пж .Задания в Паскале ,просто на бумаге написать можно.

var
a,b:real;
begin
Read(a,b);
Writeln('P = ', 2*(a+b));
Writeln('S = ', a*b);
Writeln('Спробуй ще')
end.