Напишите программу на языке паскадь для решения следущей задачи.
Известна площадь квадрата. Найдите периметр и диагональ квадрата

Var d,s,p:real;
Begin 
  Write(Введите площадь квадрата: ); readln(s);
d:=2*s;
d:=sqrt(d);
p:=sqrt(s);
p:=p*4;
writeln(Периметр:,p, Диагональ: ,d);
end.

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