Створіть екземпляр класу Drib з іменем d1, який представляє значення ОЧЕНЬ !​

а где взялся пасажирский поезд? о.о

если имеется в виду "грузовой состав ( тепловоз и 7 цистерн)", то так:

1) 1тепловоз отцепляет свои 2 вагона

2) 1тепловоз заезжает с 1 вагоном в тупик

3) оставшиеся вагоны 2тепловоз толкает вперед, давая 1тепловозу выехать позади него

4) 2тепловоз сдает назад, завозит 2 вагона в тупик и едет вперед

5) 1тепловоз возвращается и забирает 2 вагона

program xxx;

var k, d, n : integer;

          pr : boolean;

begin

  writeln('введите число k=');

  readln(k);

  d: =2;

  n: = k div 2;

  pr: =false;

  while (d< =n) and not(pr) do

      if k mod d = o then pr: =true else d: =d+1;

  if pr then writeln (k, '- число не простое') else writeln (k, '- число простое');

    readln

end.

почитай тут 

program vvl;

var x: integer;

      v: real;

begin

write('x=');

readln (x);

v: = abs(a)-2;

writeln ('v='; v: 2: 1);

end.