10 lines
160 B
ObjectPascal
10 lines
160 B
ObjectPascal
// Äåìîíñòðàöèÿ ðàáîòû ôóíêöèè eof. Çàïóñêàòü ïî Shift-F9
|
|
var s: char;
|
|
begin
|
|
while not eof do
|
|
begin
|
|
read(s);
|
|
writeln('- ',Ord(s),' -');
|
|
end;
|
|
end.
|