Используйте inc(y, 4);
Для уменьшения можно использовать dec();
Код:
If x=1 Then
begin
inc(y)
end
Else If x=2 Then
begin
inc(y)
end
Эта конструкция по нормальному должна выглядеть так:
Код:
case x of
1:inc(y);
2:inc(y);
Else
Writeln ('Значение не верно! Учитывается как 0!');
End;
