Помогите написать программу вычисляющую периметр и площадь прямоугольника!) На информатику)

Var
a,b,per,s: real;
begin
write(" Введите а: ");
readln(a);
write("Введите b:");
readln(b);
per=(a+b)*2;
s=a*b;
write(per);
write(s);
end.

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

эллементарная задача, блин, немогу старую тетрадь по информатике найти, давно на паскале не писал, так и не вспомню, но помню: введите 1 сторону, введите 2 сторону, периметр = , S =
допустим a 1 сторона, b вторая
p=(a+b)*2;
s=a*a;
что уж вспомнил: (