Помогите! СРОЧНО! Надо составить программу для Паскаль ABC Дано вещественное…

var a: real; begin writeln ('Введите вещественное число'); readln (a); //Вводим вещественное число if a < 0 then writeln ('Модуль числа а: ', abs (a) {Если введенное число — отрицательное, печатаем его модуль, иначе печатаем квадратный корень из этого числа с округлением до 5 знаков после запятой} else writeln ('Квадратный корень из числа а: ', sqrt (a): 0:5); end.