Var a,b:real; //Создание переменных а и б begin //Начало программы Writeln('Введите число '); //Написание "Введите число" Read(a); //Считывание числа b:=sqrt(a);//Нахождение квадратного корня Writeln('Квадратный корень = ',b);//Написание "Квадратный корень = " и корня числа End.//Конец программы
begin
write ('Кв. корень: ', sqrt(readreal('Введите число: '))); {Выводит кв. корень
из неотрицательного цисла :-) }
end.
begin //Начало программы
Writeln('Введите число '); //Написание "Введите число"
Read(a); //Считывание числа
b:=sqrt(a);//Нахождение квадратного корня
Writeln('Квадратный корень = ',b);//Написание "Квадратный корень = " и корня числа
End.//Конец программы