Паскаль ABC. Программа на языке Паскаль.

[Helen1]

Даны два целых числа. Вывести первое число, если оно больше второго; оба числа, если наоборот; и ничего не выводить, если числа равны.

[TinMan]

  readln(a,b);
  if a<>b then begin
    writeln(a);
    if a<b then writeln(b)
  end;

[Serge_Bliznykov]

О! Круть!
Что и требовалось доказать.

Думаю, что после ответа Helen1 я тему закрою.

[Helen1]

можно поподробней, пожалуйста. А то я в этом совсем плохо разбираюсь.. Буду очень благодарна.

[Sciv]

можно поподробней, пожалуйста.

Куда ж еще подробней-то? Объявите a и b

var a,b: integer;

и запишите данный выше код между begin...end. - и будет Вам щасте.

[Serge_Bliznykov]

Вам полностью код написали. добавьте описание переменных и всё, программа готова!


а ещё у вежливых людей принято благодарить за оказанную помощь...

[InSoLeNt number 1]

program pr1;
var
a,b:integer;
begin
write('a = '); read(a);
write('b = '); read(b);
if (a<>b) and (a>b) then writeln('a = ',a);
if (a<>b) and (a<b) then writeln('a = ',a,' b = ',b)
end.