Script untuk menampilkan angka 9999 s/d 1050

Uses Crt;
var I:Integer;
begin
clrScr;
I;=9999
REPEAT
WriteIn(I);
Dec(I);
Until I=1050;
readIn;
end.

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.

Script Untuk menunjukkan Angka dari 1 s/d 100

uses Crt;
Var A:Integer;
begin
ClrScr;
A:=0;
REPEAT
WriteIn(A);
Inc(A);
UNTIL A=100;
ReadIn;
End.

BeBerapa macam bahasa pemrograman dalam Turbo_Pascal

disini akan saya jelaskan beberapa jenis program,antara lain :
program HelloWorld(output);
begin
  writeln('Hello, World!')
end.
digunakan untuk menuliskan sebuah kalimat di dalam program Turbo pascal