Перетащи элементы

Ваня написал программу для подсчёта площади квадрата:

program ploshad_kvadrata;

var a,S: real;

begin

a:= \(5\) ;

S:=a*a;

writeln('S=', S, ' кв. см');

end.

Измени программу так, чтобы она была универсальной и считала площадь для квадрата с любой длиной стороны, которую укажет Ваня.

• write
• ('Длина стороны: ')
• read
• (a)
• S:=a*a;
• write('S=', S, ' кв. см');
• (S)
• ('Периметр')
• ('Радиус')
• ('Площадь')
• S:= \(4\) *a
• S=a*a

program ploshad_kvadrata;

var a,S: real;

begin

[ ][ ];

[ ][ ];

[ ]

[ ]

end.