Домашнее задание: Решить задачи: Задаются два разных по величине числа.…

Var a,b: integer; a1,b1: real; beginwrite ('Введите первое число: '); read (a); write ('Введите второе число: '); read (b); a1: =sqrt (a); b1: =sqrt (b); writeln ('Квадратный корень из ',a, '=', a1); writeln ('Квадратный корень из ',b, '=', b1); if b1