Выдает ошибку readln(s);
Var s,t,A: integer;
begin
readln(s);
readln(t);
readln(A);
if (s > 10) or (t > A)
then
writeln ('YES')
else
writeln ('NO')
end.
По дате
По рейтингу
https://onlinegdb.com/_tMIqlOXB работает
А что вы вводите после запуска первой строчкой?
Ожидается целое число от −32768 до 32767.
Моя твоя пискаль не понимать он жопате говорит что нужно так
1234567891011121314
var
s, t, A: integer;
begin
s := 0;
t := 0;
A := 0;
readln(s);
readln(t);
readln(A);
if (s > 10) or (t > A) then
writeln('YES')
else
writeln('NO');
end.