Ответ:
var n1,n2,n3:integer;
begin
readln(n1,n2,n3);
if abs(n1-n2)=4 and abs(n2-n3)=4 then writeln('Выигрыш по диагонали');
if abs(n1-n2)=3 and abs(n2-n3)=3 then writeln('Выигрыш по вертикали');
if abs(n1-n2)=1 and abs(n2-n3)=1 then writeln('Выигрыш по горизонтали');
else writeln('Выигрыша нет');
end;
Объяснение: