Program num1; Uses crt; Var a,b,c : real; Begin clrscr; write('a=');readln(a); write('b=');readln(b); write('c=');readln(c); if (a=b) or (b=c) or (c=a) then write ('Высказывание <Среди трех данных целых чисел есть хотя бы одна пара совпадающих> истино') else write('Высказывание <Среди трех данных целых чисел есть хотя бы одна пара совпадающих> ложно'); End.
Program num1;
Uses crt;
Var
a,b,c : real;
Begin
clrscr;
write('a=');readln(a);
write('b=');readln(b);
write('c=');readln(c);
if (a=b) or (b=c) or (c=a) then write ('Высказывание <Среди трех данных целых чисел есть хотя бы одна пара совпадающих> истино')
else write('Высказывание <Среди трех данных целых чисел есть хотя бы одна пара совпадающих> ложно');
End.