code:
program NAME;

uses crt;

var a:integer;

begin

 clrscr;

  writeln('#####');

  readln(####);

end.



1 задание

program Bpem9;

uses crt;

var a:integer;

begin

 clrscr;

  writeln('Bpem9?');

  readln(a);

  write('npowJlo ',a div 3600, ' 4acoB ', (a div 60 mod 60),'muHyT ');

readln;

end.



2 задание

program m or n;

uses crt;

var m,n:integer;

begin

 clrscr;

  writeln('4ucJlo m?');

  readln(m);

  writeln('4ucJlo n?');

  readln(n);

  if (n mod m = 0) or (m mod n=0) then write (1)

 else writeln(random);

 readln;

end.



3 задание

program ypok;

uses crt;

var a,b:integer;

begin

 clrscr;

  writeln('DeHb?');

  readln(a);

  writeln('Ypok?');

  readln(b);

  writeln ((a-1)*6+b);

  readln

end.