Помогите решить, умоляю!!! Срлчно

Question

Помогите решить, умоляю!!! Срлчно

---

Answer 1

Var S, P, a : real;
begin
write('Введите значение а: ');
readln(a);
S := a * a;
P := 4 * a;
writeln('S = ', S, 'P = ', P);
end.