ли квадратный корень из второго числа меньше первого числа, то увеличит второе число в пять раз.

Ответы:

var a,b: integer, a1,b1: real,

begin

write (Введите первое число: ), read (a),

write (Введите второе число: ), read (b),

a1:=sqrt(a),

b1:=sqrt(b),

writeln (Квадратный корень из ,a, = , a1),

writeln (Квадратный корень из ,b, = , b1),

if b1&lt,a1 then writeln (Так как корень квадратный второго числа &lt, корня первого числа, то увеличиваем число в 5 раз: ,b*5) else writeln (Квадратный корень из ,b, больше),

end.