Program Pascal

Program pertama;
uses crt;
var nama      :string;
      kampus  :string;
Begin
      write('Nama Saya: ');
      readln(nama);
      writeln('Saya Kuliah di: ');
      readln(kampus);
      readln;
end.