Решение задачи 5 из главы 9

Решение задачи 5 из главы 9

5. Пользователь вводит два числа, найдите из них максимальное. (тут всё просто)

program Project5;
var A, B : integer;
  result : boolean;
begin
  writeln('Vvedite dva zelyh chisla:');
  read(A, B);
  result := (A > B);
  if(result = true) then
  write('Maksimalnoe chislo: ', A)
  else
  write('Maksimalnoe chislo: ', B);
  readln();readln();
end. 
vedro-compota's picture

форматирование веток условного оператора - нет отступов

_____________
матфак вгу и остальная классика =)

program Project5;
var A, B : integer;
  result : boolean;
begin
  writeln('Vvedite dva zelyh chisla:');
  read(A, B);
  result := (A > B);
  if(result = true) then
      write('Maksimalnoe chislo: ', A)
  else
      write('Maksimalnoe chislo: ', B);
  readln();readln();
end.