pascal (coba)

ada permintaan dari seorang teman yang menginginkan sesuatu yang bisa berjalan pada pemrograman pascal.

contoh dibawah ini masi sangat sederhana....

program coba;
uses crt;
var
i : integer;
begin
clrscr;
for i := 5 to 25 do
begin
gotoxy (i,7); writeln('saya dea');
delay(1000);
end;
readln;
end.


'saya dea' bisa diganti menjadi apa saja..


any question?