1составить программку похождения площади и периметра прямоугольника, если знамениты стороны "А"

1)
program p1;
var a,b,p,s:integer;
begin
WriteLn('Введите сторону a');
ReadLn(a);
WriteLn('Введите сторону b');
ReadLn(b);
p:=(a+b)*2;
s:=a*b;
WriteLn('Периметр равен ',p);
WriteLn('Площадь одинакова ' ,s);
end.
2)
program p1;
var a,b:integer;
s:real;
begin
WriteLn('Введите число a');
ReadLn(a);
WriteLn('Введите число b');
ReadLn(b);
s:=(a+b)/2;
WriteLn('Среднее арифметическое ' ,s);
end.
3)
"с:=корень х, у" - нет деянья меж x и y.