Урок 11 Задание 15

program Hello;
var z,a: integer;
begin
z:=5;
begin
  while (z<77) do
   begin
  writeln ('vvedite chislo');
  readln(a);
  begin
    if a=77 then
    z:=z+1
    else if a=55 then
    z:=z-1
   end;
    writeln(z);
  end;
  end;
  
end.