Script untuk menunjukkan angka 0 sampai 1050 dengan kelipatan 5

Uses crt;
var A:Integer;
Begin
ClrScr;
A:=1;
REPEAT
WriteIn(A);
Inc(I,5);
UNTIL A=1050;
ReadIn;
end.