1-18 без точки с точкой 19
2-33 без восклицания 34 с
3-15 без восклицания 16 с
все в байтах
Ввод данных
Обработка данных
Вывод конечного результата
Var a, z:longint;
Begin
Writeln('Введите любое целое число a');
Readln(a);
z:=sqrt(a);
Writeln('Квадратный корень из числа а равен: : ,z);
End.