Заполнить массив (с клавиатуры) и вывести его на экран м[1..9] числами 3, 4, 7, 9, 19, 23, 24, 27, 39. вывести числа, кратные 3

Var i: integer;           m: array[1..9] of integer; begin        for i : = 1 to 9 do                readln(m[i]);         for i : = 1 to 9 do                if(m[i] mod 3 = 0) then write(m[i]: 3); end.

Uses crt,graph; var   gd, gm, xc, yc, r, x, y: integer; begin   clrscr;   repeat       writeln('vvedite koordinaty levogo kolca, x=[50..300], y=[50..350]: ');       readln(xc, yc);   until((xc > = 50) and (xc < = 300)) and ((yc > = 50) and (yc < = 350));     gd : = 0;   initgraph(gd, gm, '');   setbkcolor(15);   cleardevice;     r : = 50;   setlinestyle(0, 0, 3);   setcolor(9);   circle(xc, yc, r);   setcolor(8); {темно-серый, черный не нарисовать}   circle(xc + 2 * r, yc, r);   setcolor(12);   circle(xc + 4 * r, yc, r);   setcolor(14);   circle(xc + r, yc + r, r);   setcolor(10);   circle(xc + 3 * r, yc + r, r);   readln end.

1)

var num1, num2, i, res: integer;

begin

  Write('Введите числа >>> ');   {Нет -Ln, ввод чисел будет происходить на первой строке}

  ReadLn(num1, num2);   {Вводить числа через пробел, подряд}

  res:=0;   {Обнуляем счетчик, иначе результат будет неожиданный}

  for i:=1 to num2 do res:=res + num1;   {Прибавляем num1 к счетчику res num2 раз}

  Writeln(res); {Выводим}

  ReadLn

end.

2)

var a,b,P:integer;

   kv:String;

begin

writeln ('Введите геометрическую фигуру kv или pr');

Readln(kv);

if (kv = 'kv') then begin

write ('Введите сторону квадрата');

readln (a);

P:=a*4;

writeln('P= ',P);

end

else begin

writeln('ВВедите a и b');

readln(a,b);

P:=(a+b)*2;

writeln('P=',P);

end;

end.

3)

var

 a, b, c, P: real;

begin

 writeln('Введите два катета прямоугольного треугольника:');

 readln(a, b);

 P := a + b; { <-- сумма катетов }

 c := sqrt(sqr(a) + sqr(b)); { <-- гипотенуза с }

 P := P + c; { <-- периметр P }

 writeln('Результат:');

 writeln(' c = ', c:0:2);

 writeln(' P = ', P:0:2);

 readln

end.