Написать программы на паскале ​

1)

var

m: integer;

begin

read(m);

writeln(m, 'кг=', m div 1000, 'тонна');

end.

2)

var

l: integer;

begin

read(l);

writeln(l, 'см = ', l div 100, 'м и ', l mod 100, 'см');

end.

3)

var

a, n: integer;

begin

read(a, n);

writeln('Получил каждый по: ', n div a);

writeln('Осталось: ', n mod a);

end.

4)

var

s: integer;

begin

read(s);

writeln(s, ' секунд = ', s div 60, ' мин. и ', s mod 60, ' сек.');

end.