Домашнее задание: Решить задачи: Задаются два разных по величине числа. Определить какое из этих чисел больше. (Сравнение двух чисел) Даны два числа. Если квадратный корень из второго числа меньше первого числа, то увеличит второе число в пять раз.

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
end.