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

Var a,b: integer; a1,b1: real;
begin
write ('Введите 1-ое число: '); read (a);
write ('Введите 2-ое число: '); read (b);
a1:=sqrt(a);
b1:=sqrt(b);
writeln ('Квадратный корень из ',a, ' = ', a1);
writeln ('Квадратный корень из ',b, ' = ', b1);
if b1lt;a1 then writeln ('Так как корень квадратный второго числа lt; корня первого числа, то увеличиваем число в 5 раз: ',b*5) else writeln ('Квадратный корень из ',b, ' больше');
end.