CARA MEMBUAT PROGRAM PERULANGAN DI TURBO PASCAL

Program perulangan;

Uses crt;

Var

Nama,alamat,jurusan :string;

a: integer;

begin

clrscr;

writeln(‘-------------------------------------------------------------------- ‘);

writeln(‘***********PROGRAM PERULANGAN************’);

writeln(‘-------------------------------------------------------------------- ‘);

writeln;

for a:=1 to 2 do

begin

write(‘masukkan nama                         : ‘);readln(nama);

write(‘masukkan alamat                       : ‘);readln(alamat);

write(‘masukkan jurusan         : ‘);readln(jurusan);

writeln;

end;

readln;

end.