С клавиатуры вводятся 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