Help! Pascal

Ограничение по времени: 1с
Ограничение по памяти: 256мб
Петя опаздывает на экзамен по алгебре в университете. Запыхавшись, он вбежал в холл главного корпуса Берляндского университета. В корпусе 100 этажей, холл - это первый этаж.
Экзамен проходит в аудитории на этаже с номером Х. Петя может подняться по лестнице. Для того, чтобы подняться на один этаж вверх по лестнице, ему требуется 20 Сек. Однако, в корпусе имеется лифт. Сейчас лифт находится на этаже У. Лифт перемещается на один этаж вверх или вниз за 5 секунд. Если Петя хочет воспользоваться лифтом, то он должен вызвать его в холле, дождаться его и подняться на нем с первого этажа на Х.
Напишите программу , которая по заданным Х и У вычисляет НАИМ время, за которое Петя может подняться на этаж, гже проходит Экзамен

Формат входных данных:
В первой строке записано целое число Х (2<равно Х <равно100) во второй строке записано целое число y (1<равно У <равно100)

Формат выходных данных:
Выведите НАИМ время в СЕКУНДАХ, за которое Петя сможет подняться на этаж, где проходит экзамен.

program first;
var
x,y:byte;a,b:integer;
begin
writeln('vvedite x');
read(x);
writeln('vvedite y');
read(y);
a:=(x-1)*20;
b:=(y-1)*5+(x-1)*5;
if a<b then writeln('Pet9 udet neshkom za',a,'sekynd');
if a>b then writeln ('Pet9 edet na lifte za',b,'sekynd');
if a=b then writeln ('vse ravno t=',a,'sekynd');
readln;
end.


Не понял, зачем ограничение в 100 этажей. От тебя хотят проверку, не введён ли этаж больше 100?

program first;
var
x,y:byte;a,b:integer;
begin
writeln('vvedite x');
read(x);
writeln('vvedite y');
read(y);
a:=(x-1)*20;
b:=(y-1)*5+(x-1)*5;
if a<b then writeln('Pet9 udet neshkom za',a,'sekynd');
if a>b then writeln ('Pet9 edet na lifte za',b,'sekynd');
if a=b then writeln ('vse ravno t=',a,'sekynd');
readln;
end.

Спасибо огромное, blink182