Rabu, 16 Desember 2009

Program Pengulangan Nama

uses wincrt;
var
a:integer;
begin
for a:=1 to 5 do
writeln(a,'.','erni');
end.

Tidak ada komentar:

Posting Komentar