пропишите код программы дано n число найдите его квадрат и умножьте на 10 и разделите на 2ПРОШУ посчитайте​

Паскаль

program ko;

var n: integer; k,p: real;

begin

readln(n);

k:=sqr(n); //квадрат числа n

p:=k*10/2

writeln(p);

readln

end.