program oblicz;
uses crt;
var
a,b:integer;
begin
writeln ('Wpisz Liczb© ');
readln (a);
b:=7*a+5;
writeln ('Wynik wynosi: ', b);
readln;
end.