С клавиатуры вводится произвольное четырехзначное число найти произведение третьего и четвертого и сумму первого и второгоPascal

var a,b,c,d,s,n:integer;

begin

writeln('Введите 4-ехзначное число');

readln(n);

a:= n div 1000;

b:= n mod 100 div 10 ;

c:= n mod 10 ;

d:= n div 100 mod 10;

s:=a*b*c*d;

writeln(s);

end.

begin

 var chislo:=ReadInteger('Введите число: ');

 Println('Произведение 3 и 4: ', (chislo mod 100 div 10)*(chislo mod 10));

 Println('Сумма 1 и 2: ', (chislo div 1000)+(chislo div 100 mod 10));

end.

Program qq;
var a, count2, count3: integer;
begin
  writeln('Введите число');
  readln(a);
  count2:=0;
  count3:=0;
  while a>0 do
  begin
    if a mod 10 = 2 then
      count2:=count2+1;
    if a mod 10 = 3 then
      count3:=count3+1;
    a:=a div 10;
  end;
  if count2>count3 then
    a:=count3
  else
    if count3>count2 then
      a:=count2
    else
      a:=count2;
  if a<>0 then
    while a>0 do
    begin
      writeln('Выведено число 23');
      a:=a-1;
    end
  else
    writeln('Нельзя получить число 23 из цифр введённого числа');
end.

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