Решить задачу. Сколько минут принтер будет распечатывать документ, если: 1. В документе 30 листов,
2. На каждой странице 60 строк по 50 символов,
3. Принтер выпечатывает за 1 минуту 60 килобайт.

Это зависит от того, какой вес в килобайтах имеет каждый символ

Var a,b,c,d: integer; begin writeln('введите первое число'); readln(a); writeln('введите второе число'); readln(b); c: =a; d: =b; if a< b then while b< > 1 do begin a: =c*a; b: =b-1; writeln(a); end else while a< > 1 do beginb: =d*b; a: =a-1; writeln(b); end; end.1. запрашиваем первое число2. получаем первое число3. запрашиваем второе число 4. получаем второе число 5.  приравниваем первое число   некоторой переменной. 6.  приравниваем второе число   некоторой переменной. 7. если первое число больше второго то вычитаем из второго числа 1 и при  каждом вычитании приравниваем первое число к произведению  первого числа на переменную к которой его приравняли.  выводим результат на экран. 8. если второе число больше первого то вычитаем из первого числа 1 и при  каждом вычитании приравниваем второе число к произведению  второго числа на переменную к которой его приравняли.    выводим результат на экран.