Respuesta :

program z;
var
a: integer;
b: string;
begin

readln(b);
a:=strtoint(b)
writeln(a);

end.