Question

Мне надо решить задачу по информатике в программе Pascal или на листочке.
Помогите пожалуйста решить

Задача№1(Линейный алгоритм)
Составить и выполнить программу, задав входные данные самостоятельно

Вычислить сторону,площадь (S=d2/2) и периметр квадрата, если если известна его диагональ d.

Answer 1

program Project1;
var  a, P, S, d :real;
begin
  readln(d);  a:= d/sqrt(2);  S:= sqr(a);  P:= 4*a;  writeln('Сторона: ',a);  writeln('Площадь: ',S);  writeln('Периметр: ',P); 
end.

Answer 2

Спасибо большое