1. Visualizzare sullo schermo un certo valore reale riempiendo una colonna specifica

Riempire una colonna significa scrivere un numero tante volte. Se il valore è 3.14 e la colonna è la decima allora... 
Procedure Visua_Reale(R: Real; COL: Byte);

è una "procedure" perché si tratta di eseguire un ordine... In ingresso 2 parametri: il numero reale e la colonna specificati alla chiamata.

L'istruzione da eseguire più volte è "write(R);", è necessario un ciclo per ripeterla; il numero di passi è costante (25) quindi si tratta di "for i:=1 to 25 do"; è necessario posizionare il cursore sulla colonna giusta per ogni scrittura con "GotoXY()". 
Procedure Visua_Reale(R: Real; COL: Byte);
var
   i: Byte;
begin
   for i:=1 to 25 do
      begin
         GotoXY(COL,i);
         write(R);
      end;
end;

2. Calcolare il quoziente della divisione tra due numeri interi utilizzando il metodo delle sottrazioni successive

Si tratta di calcolare il quoziente intero (10:2 = 5, 11:2 = 5, ...) con delle sottrazioni successive (10-2=8, 8-2=6, ..., 2-2=0) 
Function QUOZIENTE(A, B: Integer): Integer;

Si tratta di function perché è richiesta una "risposta" (intera). In ingresso sono necessari dividendo e divisore.

Il quoziente si ottiene come numero di sottrazioni A-B necessarie per ottenere un nuovo dividendo minore del divisore. Il numero di passi è ignoto quindi si usa un while() do. 
Function QUOZIENTE(A, B: Integer): Integer;
Var
   RISP: Integer;
Begin
   RISP:=0;
   while (A >= B)do
      begin
         A:=A-B;
         Inc(RISP);
      end;
   QUOZIENTE:=RISP;
End;

3. A partire da tre numeri reali calcolare la loro somma e il loro prodotto

Si tratta di determinare due risultati a partire da tre valori. Se i valori in ingresso sono 4, 5 e 3 i risultati saranno 4+5+3=12 e 4*5*3=60. 
Procedure SEP(X, Y, Z: Real; Var S, P: Real);

Si tratta di una procedura perché sono richieste due "risposte". I tre numeri reali sono necessari per svolgere il compito quindi si tratta di tre parametri in ingresso.

... 
Procedure SEP(X, Y, Z: Real; Var S, P: Real);
Begin
   S:=X+Y+Z;
   P:=X*Y*Z;
End;

- ApPuNtIdIuNiNfOrMaTiCo