Programalama > PASCAL

program adini_yaz_ekrana;
uses crt; {yerine göre değişir. wincrt olabilir. türkçe karekter kullanmayın}
var
adi,soyadi:string[15];
Begin {başla}
writeln('ADINIZI GİRİNİZ: '); 
 readln(adi);
writeln('SOYADINIZI GİRİNİZ: ');
 readln(soyadi);
clrscr;
 gotoxy(10,10);
 writeln('ADINIZ ',adi,' SOYADINIZ ',soyadi,' dır...');
End.   {Bitir}

{TÜM MANTIK BU YAZ OKUT YAZ OKUT. }