Pascal составьте программу построения таблицы значений функции y=0, 5x+8 на интервале от -4 до 4 с шагом 0.5 (с использованием goto)

Так? var x: real; label l; begin x: =-4; l: writeln(x,' - ',0.5*x+8); x+=0.5; if x< = 4 then goto l end.

21 - не может так как не 1 не 2 на 3 не делится 729 - не может так как 72/3 = 24 > 9, 72 > 9+9. lhдругое разбиение протеворечит п2 2912 - не может так как 29 > 9+9, 29 не делится нацело на 3, 291 > 9+9,  291/3 > 9 остальные [116, 73] [133, 94] [148, 129] [215, 73] [232, 94] [247, 129] [314, 73] [331, 94] [339, 129] [346, 129] [413, 73] [430, 94] [438, 129] [445, 129] [512, 73] [537, 129] [544, 129] [559, 1514] [611, 73] [636, 129] [643, 129] [658, 1514] [710, 73] [735, 129] [742, 129] [757, 1514] [834, 129] [841, 129] [856, 1514] [933, 129] [940, 129] [955, 1514] [999, 2718] кол-во {21=> 0, 73=> 7, 94=> 4, 729=> 0, 129=> 16, 1514=> 5, 2718=> 1, 2912=> 0} вообщем ответ 5

1) const     n = 13; var     a: array[1..n] of integer;     i,j: integer; begin for i: = 1 to n do       begin       a[i]: =random(21)-10;       write(a[i],' ');       end; writeln; for j: = 1 to n do       for i: = 1 to n-1 do               if a[i]< a[i+1] then swap(a[i],a[i+1]); for i: = 1 to n do       write(a[i],' '); end. 2) var     a: array[1..4,1..4] of integer;     i,j: integer; begin for i: = 1 to 4 do       begin       for j: = 1 to 4 do               begin               if (i+j) mod 2 = 0 then a[i,j]: =i*j               else a[i,j]: =i+j;               write(a[i,j],' ')               end;       writeln       end; end.