Нарисовать в паскале грузовик, !

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вроде бы

vb.

dim a() as integer

randomize()

dim k as integer

dim n as integer

n = rnd() * 100 + 1

redim a(n)

for k = 0 to n

    a(k) = rnd() * -1000 + 500

next

dim dump as integer

dim u as integer

u = inputbox("введите номер элемента для встанвки в пределах от 0 до " & n)

redim preserve a(n + 1)

for k = n + 1 to u + 1 step -1

    dump = a(k)

    a(k) = a(k - 1)

      '   c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535   

      a(k - 1) = dump

next

подробнее - на -