Опишите входы и выходы легкового автомобиля

Всмысле    входы и выходы легкового автомобиля? запишите вопрос по  корректнее. 

Var   m, n, nok, t, i: longint; begin   write('введите через пробел два целых положительных числа- ');   readln(m, n);   {сначала ищем нок - наименьшее общее кратное}   if m = n then begin       nok : = m;       t : = m * m   end   else begin       t : = m * n;       repeat           if m > n then m : = m - n else n : = n - m       until m = n;       nok : = t div m   end;   {теперь умножаем нок на числа натурального ряда,     пока не дойдем до величины t=m*n}   if nok = t then writeln('требуемых чисел нет')   else begin       i : = 1;       while (nok * i < t) do       begin           write(nok * i, ' ');           i : = i + 1       end   end end. тестовое решение: введите через пробел два целых положительных числа- 8 120 120 240 360 480 600 720 840 введите через пробел два целых положительных числа- 35 620 4340 8680 13020 17360 введите через пробел два целых положительных числа- 7 13 требуемых чисел нет

Var       a, b, c, d: integer;   begin       write ('введите три числа: ');       readln (a, b, c);         if a > = b then               d : = a       else               d : = b;         if c > d then               d : = c;         writeln ('максимальное из них: ', d);   readln end.