Информатика ЛР 7+8(без 5 задания) 10 Вариант / LAB7

program Lab7;
Var a,b,c:integer;
Begin
writeln('Введите a=');
readln(a);
writeln('Введите b=');
readln(b);
writeln('Введите c=');
readln(c);
if a=b then writeln('Третье число отлично от двух других')
else if b=c then writeln('Первое число отлично от двух других')
else writeln('Второе число отлично от двух других');
end.