Самая простая программа на Паскале

program velo
var t1, v1, t2, ab),bc,ac,:integer;
begin
 t1:=5;t2:=4;v1:=70;v2:=75;
 ab:=v1*t1;bc:=v2*t2
 ac:=ab+bc;
writeln (ab:b,bc:b,ac:c);
 readln;
 end.

program Seconds;
uses
  crt;
var
  rez: longint;
begin
  clrscr;
  rez:=60;
  writeln('Seconds in a day: ', rez*60*24);
  writeln('Seconds in a week: ', rez*60*24*7);
  writeln('Seconds in a year: ', rez*60*24*365);
  readln;
end.

var syt,has,min,sec : extended;
begin
  clrscr;
  write('сут = ');
  readln(syt);
   has:=24*syt;
   min:=60*has;
   sec:=60*min;
  writeln('часов  : ',has:0:0);
  writeln('минут  : ',min:0:0);
  writeln('секунд : ',sec:0:0);
  readln;
end.

program velo;
var t1, v1, t2, ab, bc, ac: integer;
begin
 t1:=5;  t2:=4;  v1:=70;   v2:=75;
 ab:=v1*t1;  bc:=v2*t2;
 ac:=ab+bc;
 writeln (ab:b,  bc:b,  ac:c);
 readln;
 end.

Program abc;
Var z,x,c,v,b,n,m:real;
begin
z:=3600;
x:=30;
c:=365;
v:=7;
b:=x*z;
writeln('В 30 днях ',b,' секунд');
n:=z*c;
writeln('В 365 днях ',n,' секунд');
m:=z*v;
Writeln('В 7 днях ',m,' секунд');
end.