Ввести число. Если число отрицательное, то помножить его на-1. Потом выдать

program zz1;

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

begin

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

read (a);

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

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

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

end.