С клавиатуры вводятся 2 числа. Если хотя бы одно из этих чисел является трёхзначным и кратным 3, вывести слово YES, иначе возвести первое число в квадрат, а из второго извлеч корень, вывести эти числа на экран

var   a,b:integer; begin   Write('Введите два числа -> '); Readln(a,b);   if ((a>=100) and (a<=999) and ((a mod 3)=0) or       (b>=100) and (b<=999) and ((b mod 3)=0)) then Writeln('YES')   else Writeln(sqr(a),', ',sqrt(b)) end. Тестовые решения: Введите два числа -> 65 360 YES Введите два числа -> 152 47 23104, 6.85565460040104