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

Question

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

---

Comments

какой алгоритм сделать, если он у тебя нарисован? Может программу?

---

да

---

чтоб программа сработала

Answer 1

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