Что выведет программа, если в качестве значений переменных s и t вводились (13,17)?

var s, t: integer;
begin
readln(s);
readln(t);
if (s > 10) and (t > 10)
then writeln(s)
else writeln(t)
end.

13

Объяснение:

s = 13

t = 17

Проверяем истинность выражения (s > 10) and (t > 10)

13 > 10 - истина, 17 > 10 - истина, следовательно все выражение (s > 10) and (t > 10) истинно, следовательно будет выполнена инструкция then writeln(s), т.е. выведено на печать содержание переменной s = 13