задача 5 урок 9

урок 9 задача 5

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

var
   a,b :integer ;
begin
writeln('напишите значение a');
readln(a);
writeln('напишите значение b');
readln(b);

if(a<b) then

writeln(b);
 readln();
if(a>b) then

writeln(a);
 readln();
end.
                      
vedro-compota's picture

переделать на полную форму

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

isaac_fan's picture

var
a,b :integer ;
begin
writeln('напишите значение a');
readln(a);
writeln('напишите значение b');
readln(b);

if (a

writeln(b)

else

writeln(a);

end.

vedro-compota's picture

добавить подсветку кода

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

isaac_fan's picture

var
a,b :integer ;
begin
writeln('напишите значение a');
readln(a);
writeln('напишите значение b');
readln(b);

if (a

writeln(b)

else

writeln(a);

endvar.
vedro-compota's picture

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