Найти площадь и периметр прямоугольника с катетами а и б — Pascal(Паскаль)

program E02(input,output);
var
a,b:REAL;
R:REAL;
S:REAL;
P:REAL;
begin
writeln ('введите значение a=');
writeln ('введите значение b=');
read(a,b);
S = a*b;
S1 = a*b/2;
Р = 2*(a+b);
Р1 = a+b+SQRT(a*a+b*b);
writeln('результат:');
writeln(' Площадь = ' ,s:8:3)
writeln(' Периметр = ' , p:8:3)
writeln('Площадь ПРЯМОУГОЛЬНОГО ТРЕУГОЛЬНИКА С КАТЕТАМИ = ' ,s1:8:3)
writeln('Периметр ПРЯМОУГОЛЬНОГО ТРЕУГОЛЬНИКА С КАТЕТАМИ = ' , p1:8:3)
end.