Написать программу в которой данный 2 числа (любые на ваше усмотрение) если хотя бы одно из них больше 30 вывести да, иначе вывести нет.

Var a,b:integer;
begin
readln(a,b);
if (a>30)or(b>30)
 then writeln('Да') else writeln('Нет');
end.

Пример:
17 38
Да