Вывод на экран максимального числа из введенных пользователем

Вывод на экран максимального числа из введенных пользователем.

program chisla
    integer a,b
    character x
     print*,'hotite vvesti chislo?(y/n)'
     read*,x
      if (x=='y') then
       print*,'vvedite chislo'
       read*,b
        do while (x=='y')
           print*,'hotite vvesti chislo?(y/n)'
           read*,x
                if (x=='y') then
                   print*,'vvedite chislo'
                   read*,a
                    if (a>b) then
                     b=a
                    end if
                else
                 print*,'max=',b
                end if
         end do
       else
       print*,'vy ne vveli chisel'
       end if
     pause
end

Скачать (Яндекс.Диск)