var
    a : Integer;
BEGIN
    Write('Szam: ');
    ReadLn(a);
END.