Написать программу , которая увеличивает число на 7, если оно меньше нуля и уменьшает на 2. если исходное число больше 0

Var a,b,c: integer; begin writeln('введите число'); readln(a); if a< 0 then b: =a+7 else b: =a-2; if a=0 then while a=0 do begin writeln('введите другое число'); end; writeln('полученное число  ', b); end.

Var x : real; begin    writeln ( 'введите число : ');     readln (x);       if (x< 0) then x: =x+7        else if  (x> 0) then x: =x-2;     writeln (' конечное число : ',x); end.

австрия - вена

бельгия - брюссель

болгария - софия

венгрия - будапешт

испания - мадрид

 

program xxx;

    var z,d,k : integer;

begin

  z: =2; d: =7; k: =0;

  while (d> =z) do

    begin

      d: =d-z;

        k: =k+1

      end;

  writeln(d,'    ',k);

  readln

end.