Contoh program Menggunakan for….do…

program ulang_taufik;
uses crt;
var
X,celcius:integer;
fahrenheit:real;
begin
writeln(’********************’);
writeln(’ celcius fahrenheit ‘);
writeln(’********************’);
celcius:=0;
for X:=1 to 10 do
begin
fahrenheit:=1.8*celcius+32;
writeln(celcius:8,fahrenheit:14:2);
celcius:=celcius+25;
end;
writeln(’*******************’);
readln;
end.