Как сост программу которая вычисляет квадраты трёх чисел
Var a,b,c:real; begin; readln(a); readln(b); readln(c); writeln(sqr(a)); writeln(sqr(b)); writeln(sqr(c)); end.