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

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

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

end.