Var
x, y :integer;
Begin
Readln(y);
y:=y*2;
If y<20 then x:=5*y+12 else x:=y+12;
x:=x/2;
Write(x);
End.
Объяснение:
Думаю я смог
Var
x, y :integer;
Begin
Readln(y);
y:=y*2;
If y<20 then x:=5*y+12 else x:=y+12;
x:=x/2;
Write(x);
End.
Объяснение:
Думаю я смог