Question

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

Answer 1

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