program oblicz;
uses crt;
var
a,b:integer;
begin
writeln ('Wpisz Liczb© ');
readln (a);
if a>0 then
b:=2*a+8 else
b:=a*a+3;
writeln ('Wynik wynosi: ' ,b);
readln;
end.