Calculo da media

{ paulogp }
{ mac os 7 }
program Ada15p;

uses
    MemTypes, QuickDraw, OSIntf;

var
    soma, num, media: real;
    temp: integer;
    tecla: string;

begin
    repeat
        soma:= 0;
        temp:= 0;
        clearscreen;
        gotoxy(25, 2);
        writeln('Programa: Cálculo da Média');
        gotoxy(25, 3);
        writeln('--------------------------');
        gotoxy(33, 4);
        writeln('Paulo G.P.');
        writeln;
        repeat
            writeln;
            write('Introduza um número real (0 para terminar): ');
            readln(num);
            if num <> 0 then temp:= temp + 1;
            soma:= soma + num;
        until num = 0;
        if temp <> 0 then
        begin
            media:= soma / temp;
            writeln;
            writeln('A média dos números é ', media:2:1);
            writeln;
        end else
            writeln('Tem de inserir pelo menos um valor diferente de 0!');
        writeln;
        write('Repetir (S/N): ');
        readln(tecla);
        uprstring(tecla, true);
    until tecla = 'N';
end.