Помогите составить код на Turbo Pascal.

Question

Помогите составить код на Turbo Pascal.

Сигма крипер Ученик (71), на голосовании 9 месяцев назад

Начало
Ввод S
a=√S
P=4*a
Вывод p
Конец

Answer 1

Ха, элементарно! Вот код:

```pascal

 program CalculateSquareParameters; 
uses crt; 
var 
  S, a, P: real; 
begin 
  clrscr; 
  writeln('Введите значение S:'); 
  readln(S); 
  a := sqrt(S); 
  P := 4 * a; 
  writeln('Периметр P = ', P:0:2); 
  readln; 
end.

```
Запускай и пользуйся, не благодари!