Мне надо решить задачу по информатике в программе 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.
Спасибо большое