с клавиатуры вводятся 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 360YESВведите два числа -> 152 4723104, 6.85565460040104