Как сделать алгоритму полгите пожалуйста

Ответ

Автор - saypl

var a,b,s,p : real;
begin
read (a,b);
s:=a*b;
p:=2*(a+b);
write ('S= ', s, ' P= ', p);
end.

Сервис носит ознакомительный характер, вся информация, а в частности вопросы и ответы, которые задают и отвечают пользователи.