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

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

Пользователь вводит три числа, найдите из них максимальное.
Решите тремя способами:
Без вложенных блоков (без and) -- запомнив максимум из первых двух чисел в специальной переменной.

var
   a,b,c,max:integer;
begin
     writeln('Vedite chislo a');
     readln(a);
     writeln('Vedite chislo b');
     readln(b);
     writeln('Vedite chislo c');
     readln(c);
     if (a>b)then
        max:=a
     else
        max:=b;
     if (c>max)then
        max:=c;
        writeln('vivoditsya bolsshee chislo ',max);
     readln();
end.

Вывод консоли:

Vedite chislo a
2
Vedite chislo b
2
Vedite chislo c
3
vivoditsya bolsshee chislo: 3