home *** CD-ROM | disk | FTP | other *** search
/ PC-X 1998 July / pcx23_9807.iso / PC-XUSER / PC-XUSER.16 / PROGTERV / PASRUTIN.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-04-05  |  495 b   |  22 lines
  1. function beolvas_karaktert(szoveg: string): Char;
  2. var c: Char;
  3. begin
  4.    Write(szoveg); ReadLn(c);
  5.    beolvas_karaktert:=c;
  6. end;
  7.  
  8. procedure Kiir(szoveg1, szoveg2: String; karakter: Char);
  9. begin
  10.  
  11.   WriteLn(szoveg1, ' ', karakter);
  12.   WriteLn(szoveg2, ' ', karakter);
  13.  
  14. end;
  15.  
  16. BEGIN {a fôprogram itt kezdôdik}
  17.  
  18.   Kiir('Ezt a karaktert éppen most olvastuk be: ',
  19.        'Ezt a karaktert éppen most írtuk    ki: ',
  20.        beolvas_karaktert('Kérem a beolvasandó karaktert: '));
  21.  
  22. END.