// Определить большее из двух чисел...
Var a,b,c:integer;
begin;
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);
If a=b then
write('Числа равны')
Else
if a>b then
write('Больше первое число')
Else
if b>a then
writeln('Больше второе число');
end.