Question

1.Составьте программу вычисляющую сторону и площадь квадрата по его примеру. СРОЧНО НУЖНО! ПОМОГИТЕ ПОЖАЛУЙСТА РЕШИТЬ!

Answer 1

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