066536 / 460

program task460;
uses
Crt;

function TruncStrReal(str:string):longint;
var
res:longint;
i:integer;
begin
res:=0;
i:=1;
while (str[i]<>'.') and (i<=length(str)) do begin
res:=res*10+(ord(str[i])-ord('0'));
inc(i);
end;
TruncStrReal:=res;
end;

var
strInt:string;
i:integer;
flag:boolean;
begin
ClrScr;
write('‚ўҐ¤ЁвҐ ўҐйҐб⢥­­®Ґ зЁб«®: ');
readln(strInt);
flag:=false;
for i:=1 to length(strInt) do
if not (strInt[i] in ['0'..'9','.']) then begin
writeln('ЌҐўҐа­л© д®а¬ в зЁб« !!!');
flag:=true;
break;
end;
if not flag then
writeln('‡­ зҐ­ЁҐ 楫®© з бвЁ = ',TruncStrReal(strInt));
writeln('„«п ўл室  ­ ¦¬ЁвҐ «оЎго Є« ўЁиг ...');
readkey;
end.