Мне надо решить по информатике в программе pascal или на листочке. решить №1(линейный алгоритм) составить и выполнить программу, задав входные данные самостоятельно вычислить сторону,площадь (s=d2/2) и периметр квадрата, если если известна его диагональ d.
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.