Ввести число. Если число отрицательное, то умножить его на-1. Затем выдать на экран число и квадратный корень из числа.

program zz1;

var a, b: integer; / / вводим переменные целого типа

begin

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

read (a);

if a < 0 / / проверяем условие, если исходное число отрицательное, то

then b: = a * - 1; / / вычисляем ответ, умножив исходное число на минус единицу

write (' Полученный ответ = ', b, ' квадратный корень из заданного числа = ', sqrt (b) : 5: 2); / / выводим ответ в формате пять знаков для всего числа и два знака после точки

end.