Периметр квадрата равен p. Найдите площадь квадрата

Question

Периметр квадрата равен p. Найдите площадь квадрата

Comments

На языке paskal

Answer 1

Var  a, p: real;
begin
 write('Введите периметр квадрата: ');
 readln(p);
 a := p / 4;
 a := a * a;
 writeln('Площадь квадрата: ', a);
end.