Составить программу для паскаля. Задание: с клавиатуры вводится любое число х, если х>=0 найти корень, иначе вывести текст нет корня

program zz1;

var x, y:integer; / / задаем переменную целого типа

begin

write (' введите заданное число х '); / / вводим с клавиатуры исходное число х

read (x);

if x>=0 then write (sqrt (x) : 5:2) else write (' нет корня '); / / проверяем, если заданное число больше или равно нулю, то выводим на экран результат вычисления в формате пять знаков для всего числа и два знака после точки, если заданное число меньше нуля, то выводим "нет корня"

end.