Programalama > PASCAL

uses crt;
var
  ad,soyad,dgyr:string;
  tarih:integer;
begin
  clrscr;
  write('isim giriniz.:');
  readln(ad);
  write('soyad giriniz.:');
  readln(soyad);
  write('dogum yeriniz.:');
  readln(dgyr);
  write('dogum tarihiniz.:');
  readln(tarih);
  writeln;
  writeln(ad,' ',soyad,' ','adli sahis ',dgyr,' de dogmus ve  su an ',2004-tarih,' yasnda dr..');
  writeln;
  writeln;
  readln;
end.