1.составьте программу вычисляющую сторону и площадь квадрата по его примеру. нужно! решить!

Var  p :integer;  a, s :real;
begin
  readln(p);  a:= p/4;  s:= sqr(a);  writeln('Сторона квадрата равна ',a);  writeln('Площадь квадрата равна ',s);
end.