Задача 5 Урок 9

Задача 5 Урок 9

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

program Project1;
var firstNumb, secondNumb : integer;

begin
     write('Vvedite pervoe chislo: '); readln(firstNumb);
     write('Vvedite vtoroe chislo: '); readln(secondNumb);
     if(firstNumb>secondNumb) then
        begin
           writeln('max chislo: ',firstNumb);
           readln();
        end else
        begin
           writeln('max chislo: ',secondNumb);
           readln();
        end;
end.  
vedro-compota's picture

1) не нужно дублировать readln();
2) не нужны операторные скобки на ветках условного оператора

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