Programmare: iniziamo?

@echo off
cls
echo ciao!
pause
exit

ciao!
premere un tasto per continuare...

program veglia;
uses crt, dos;
var h, m, s, hund : Word;
begin
 repeat
 GetTime(h,m,s,hund);
 delay(500);
 clrscr;
 writeln;
 writeln;
 writeln;
 writeln;
 writeln;
 writeln;
 writeln;
 writeln;
 writeln;
 writeln;
 writeln;
 writeln;
 writeln;
 Writeln('                                    ',h,':',m,':',s);
 until keypressed;
end.

program pigreco;
uses crt,windos;
var i,g:longint;a,b,c,p,h:real;q,t:string;ore1,min1,sec1,cent1,ore,min,sec,cent:word;

procedure calcolo;
  begin
  (*utilizzo di un passo di 0,000001 da 0 a 0,55*)
  a:=0;
  b:=0;
  c:=0;
  h:=0.000001;
  for i:=0 to 550000 do
      a:=a + sqrt(1-(i*h)*(i*h));
  p:=h*a;
  (*utilizzo di un passo di 0,0000001 da 0,5501 a 0,8*)
  h:=0.0000001;
  for i:=5500001 to 8000000 do
      b:=b + sqrt(1-(i*h)*(i*h));
  p:=p+h*b;
  (*utilizzo di un passo di 0,00000001 da 0,80001 a 1*)
  h:=0.00000001;
  for i:=80000001 to 100000000 do
      c:=c + sqrt(1-(i*h)*(i*h));
  p:=p+h*c;
  p:=4*p;
  end;

begin
    clrscr;
    writeln('      25 aprile 2005                           Carmelo Pellegrino VD');
    writeln;
    Writeln('Questo Programma permette di calcolare il valore numerico del pi greco.');
    writeln;
    writeln('Nonostante il programma utilizzi un metodo iterativo di estrema precisione');
    writeln('si verificano approssimazioni grossolane da parte del programma stesso.');
    writeln('Pertanto si registra sperimentalmente un''errore dell''ordine di 10^-5.');
    writeln('Si consiglia di attendere con pazienza l''uscita del programma.');
    writeln;
    writeln('Premere INVIO per continuare.');
    readln;
    GetTime(ore,min,sec,cent);
    calcolo;
    GetTime(ore1,min1,sec1,cent1);
    writeln;
    writeln('La procedura Š terminata.');
    (*elimino il suffisso 'E+00' alla fine del numero*)
    str(p,q);
    delete(q,pos('E+00',q),4);
    writeln('p =',q);
    g:=(360000*(ore1-ore)+6000*(min1-min)+100*(sec1-sec)+cent1-cent);
    str(g,t);
    insert('.',t,Length(t)-1);
    t:=t+'sec';
    writeln('Tempo di elaborazione: ',t);
    readln;
end.

program potenza;
uses crt;
var a, b, c, d:longint;
procedure calcola;
begin
clrscr;
write('Avvertenze: Si consiglia vivamente di non inserire numeri troppo grandi,');
writeln('al fine di evitare di ottenere delle fesserie come risultato.');
writeln('Pertanto evitare di scrivere 10^10, perch‚ Š inutile. Grazie.');
writeln;
writeln('Inserire la base');
writeln;readln(a);
clrscr;
write('Base: ',a);
writeln;
writeln;
writeln('Inserire l''esponente:');
writeln;readln(b);
clrscr;
write('Calcolo di ',a,' elevato a ',b,' in corso...');
c:=1;
for d:=1 to b do
c:=a*c;
clrscr;
writeln;
writeln(' Risultato: ',a,'^',b,' = ',c);
readln;
end;
begin
calcola
end.

program tabellina;
uses crt;
var n,i:integer;
begin
clrscr;
write ( 'introduci numero di cui calcolare la tabellina:' );
writeln; readln (n);
clrscr;
for i:=1 to 10 do
writeln (n ,'x',i,'=',n*i);
readln;
end.

       main()
  {
          corpo-prog

short number,sum;
int bignumber,bigsum;
char letter;
main()
{
...
}