1) Это книгопечатальщики. Раньше книги приходилось печатать чуть ли не ни в ручную. технологии не позволяли ((( а сейчас благодаря информ. технологиям и инф.обществу делать это стало довольно просто.
Сам пременные объявишь
begin
read(max);
read(min);
while(n <> 0) do // пока не равну нолю делать то то. ноль - знак окончание ввода чисел
if max < min then min := max;
writeln(max);
end.