Мне надо решить по информатике в программе 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.