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

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

Пользователь вводит четыре числа, найдите из них максимальное.

решение задачи:

program Lesson97;
var A,B,C,D,
  maxchislo,max2,max3,max4:integer;
begin
     writeln('vvedite chislo A');
     readln(A);
     writeln('vvedite chislo B');
     readln(B);
     writeln('vvedite chislo C');
     readln(C);
     writeln('vvedite chislo D');
     readln(D);

     if (A > B) then
        max2 := A
     else
         max2 := B;

     if (max2 > C) then
        max3 := max2
     else
         max3 := C;

     if (max3 > D) then
        max4 := max3
     else
         max4 := D;

     maxchislo := max4;
     writeln('max chislo: ', max4);
     readln();
end.