Составить алгоритм для решения задачи: подсчитать значение выражения Y=78-24C на промежутке от 10 до 20?

Мне бы в Visual Basic 6.0

Так ты бы указал...

Почему С = 16?

Исправил

На промежутке от 10 до 20!!!!

program djonik2; var a, b, c: real;  y,x: real;  begin x:=10;  readln(a,b ,c);  writeln('                    ');   writeln('     Y    ');   writeln('                   ');repeat y:=a-b*c; writeln(y); until x>20;end.VB:Sub Find() Dim C, Y As Integer,  C= InputBox("Введите значение переменной C", "Ввод значеня переменной C")      y = 78-24*C       MsgBox y,  "Вывод значений" End SubВроде бы так...