Αντίστροφη μέτρηση έως το 0

Να γίνει πρόγραμμα σε pascal που να διαβάζει έναν θετικό ακέραιο αριθμό και να εμφανίζει την αντίστροφη μέτρηση από αυτόν τον αριθμό έως το 0. Να γίνει χρήση της δομής επανάληψης repeat..until.






Απάντηση

Program antistrofi_metrisi;
var n:integer;
Begin
    write('Δώσε έναν θετικό ακέραιο αριθμό εκκίνησης: ');
    readln(n);
    repeat
    writeln(n);
    n:=n-1;
    until n=-1;
End.