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

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