1)
case k of
4: a:=k+2;
5: a:=k+4;
6: a:=k+6;
7: a:=k+8;
8: a:=k+10;
9: a:=k+12;
10: a:=k+14;
end; { case }
2) if k in [4..10] then a:=3*(k-2);
Program massiv;
const N=10;
var i:integer;
mas:array[1..N]of integer;
begin
randomize;
for i:=1 to N do
begin
mas[i]:=random(100);
write(mas[i],' ');
end;
writeln(' ');
for i:=1 to N do
begin
if i mod 3=0 then
write(mas[i],' ');
end;
end.
Оба 3й вариант. первое у вас правильно отмечено
2d. Идентификатор не должен начинаться с цифры!
Ответ:
var i:integer;
begin
for i:=1 to 10 do writeln(i:2,' * 2 = ',i*2)
end.