Вычисляемое в программе значение переменной m для входного данного 3 равно… For i:=1 to 4 do

For j:=1 to 4 do

If j mod 2=0 then a[i,j]:=i+j

Else a[i,j]:= i+1;

k:=strtoint(Edit1.text);

m:=a[k+1,k];

For j:=k+1 to 4 do

m:=m+a[k,j]+a[j,k];

label1.caption:=inttostr(m);

Завдання  Запиши послідовність номерів карток, які задають порядок:Варіант 1а) завершення роботи за комп'ютеромб) запуску програми на виконання
Варіант 2а) підготовки комп’ютера до роботиб) коректного завершення роботи з програмою
Завдання 3. Дії з о б’єктам и  Робочого столуУ комп’ютерному класі за комп’ютерами з різними номерами сидять Світлана,Марина,Роман та Сергій. Відомо, що:- Світлана виконала затримку над деяким об’єктом:- Марина один раз клацнула лівою кнопкою миші;- Роман не встиг нічого зробити;- Сергій виконав дві дії з мишею.

Program igra;var a,b,c:integer;beginwriteln('Правда или действие? Если выбираете правду, введите 1, если действие 2');read(a);if a=1 then writeln('Сколько тебе лет?')else writeln('Подтянись 5 раз');writeln('Правда или действие? Если выбираете правду, введите 1, если действие 2');read(a);if a=1 then writeln('Сколько стоит твой компьютер?')else writeln('Пробеги вокруг техникума 5 раз');writeln('Правда или действие? Если выбираете правду, введите 1, если действие 2');read(a);if a=1 then writeln('Какой человек самый неприятный для тебя?')else writeln('Не садись целый час');end.