Задачи из файла выполнить в паскаль

1. 2. 2:

program time;

var k: Byte;

begin

Readln(k);

Writeln(k * 40 + 5 * (k-1) + 80);

end.

1. 2. 3: (Вывод: 32)

program number;

begin

Writeln((150 * 2 - 40) / 8);

end.

1. 2. 4:

program calc;

var sant: Integer;

begin

Readln(sant);

Writeln(sant div 100000, ' км ', sant mod 100000, ' м');

end.