pascal kerdes

[Fuzesi Arnold]

bocs, azt elfelejtettem hogy hexaban kellene kiírni.
szoval ez jön pl be @@@@@@<4F>@@@@@@<4F>
akkor ez kellene ki:
40 40 40 40 40 40 4F 40 40 40 40 40 40 4F

Kösziiii!!!!!!!!!
----- Original Message ----- 
From: "Fuzesi Arnold" <arnold.fuzesi.lista at gmail.com>
To: <elektro at tesla.hu>
Sent: Monday, September 17, 2007 6:03 PM
Subject: pascal kerdes


> ezt vki ki tudna javítani nekem működőre?
> basszus elfelejtettem pascalul :(
>
> amit szeretnek:
> ami bejön karakter azt kiirom
> csak amikor hexa 0x4F jön, akkor egy soremelest beszurok a 0x4F utan
>
> 10000 kösz!
>
> var i: longint;
> var b: char;
> begin
>  writeln('start');
>
>    while i=1 do
>      b:=ComReadChr();
>      if (b=(0x4f)) then writeln('soremeles');
>     else wite(b);
>  end;
> end.
>