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

Program djonik2;
vara, 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
Вроде бы так...