Подскажите пж .Задания в Паскале ,просто на бумаге написать можно.
Var a,b:real; begin Read(a,b); Writeln('P = ', 2*(a+b)); Writeln('S = ', a*b); Writeln('Спробуй ще') end.