Составить алгоритм для решения задачи: подсчитать значение выражения Y=78-24C на промежутке от 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
Вроде бы так...