lab7_v19 / lab7_v19

program lab7_v19;
uses Crt;
const dig=['0'..'9'];
var
F:Text;
c:char;
s:string;
num,code:integer;
begin
ClrScr;
ASSIGN(F,'INPUT.TXT');
Reset(F);

while not EOF(F) do begin
read(F,c);
if(c=' ') then break;
if(c in dig) then s:=s+c else begin
writeln('Џ®б«Ґ¤®ў вҐ«м­®бвм ­Ґ пў«пҐвбп жҐ«л¬ зЁб«®¬');
readln;
halt;
end;
end;
Val(s,num,code);
write('—Ёб«® ',num);
if(num mod 3)<>0 then write(' ­Ґ');
writeln(' ¤Ґ«Ёвбп ­  3 ЎҐ§ ®бв вЄ ');
readln;
Close(F);
end.