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

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

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

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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.