Pascal.abc 1: пользователь вводит целые числа. остановить его, когда их сумма становится больше 100 2: пользователь вводит символы. остановить его, когда он введет 5 раз символ f. хранятся символы в переменной типа char. 3: пользователь вводит число от 1 до 4. в зависимости от цифры
нарисовать треугольник из звездочек. например 1: *** ** * 2: *** ** * 3: * ** *** 4: * ** *** и т.д.

1.

100

90

80

2.

f

g

h

3.

1

3

4

почему

1.

var

    a, s : integer;

begin

    writeln('введите числа: ');

    while s < 101 do begin

        read(a);

        s += a;

    end;

    writeln('стоп! сумма чисел больше 100, s=', s);

end.

2.

var

    h : char;

    n : integer;

begin

    writeln('введите символы: ');

    while n < 5 do begin

 
      read(h);

        if h = 'f' then n += 1;

    end;

    writeln('стоп! символ f был введен 5 раз')

end.

3.

var

    a : integer;

begin

   
write('введите число от 1 до 4 : ');

    readln(a);

    if (a = 1) or (a = 2) then begin

        for var i : = 3 downto 1 do begin

            for var j : = 1 to i do write('*');

            writeln;

        end;

    end

    else if (a = 3) or (a = 4) then begin

        for var i : = 1 to 3 do begin

         
  for var j : = 1 to i do write('*');

            writeln;

        end;

    end

    else writeln('вы ввели не правильное число : (');

end.