Να χρησιμοποιήσετε τις εντολές επανάληψης repeat until , ώστε το
αποτέλεσμα να είναι η εκτύπωση των αριθμών 1 έως και 10.

arithmos:=1;
while arithmos < 11 do
begin
arithmos: =arithmos + 1;
write(arithmos:5);
end;