Решить по информатике, 8 класс: используя цикл "пока""вывести на экран в строчку числа: 30, 28.5, 27, 25.5, 24, 22.5, 21." нужно( буду .

Var a,b,c: integer; begin; writeln('сторона a'); readln(a); writeln('сторона b'); readln(b); writeln('сторона c'); readln(c); if (a=b) and (b=c) then writeln('равносторонний')       else       begin;             if (a=b) or (b=c) or (c=a) then             writeln('равнобедренный')                     else                    writeln('произвольный');       end; end.              

Var   a,b: real; begin   write('введите через пробел два числа: '); read(a,b);   if b=0 then writeln('результат деления не определен')   else       if a*b> 0 then writeln('частное a/b имеет положительный знак')       else           if a=0 then writeln('частное a/b равно нулю')           else writeln('частное a/b имеет отрицательный знак') end. тестовое решение: введите через пробел два числа: 8 -4 частное a/b имеет отрицательный знак