Определите значение переменной b после выполнения алгоритма: a : = 10 b : = 18 a : = b mod 3 + a div 2 b : = a+b

Var a,b:integer;
begin
a := 10; 
b := 18; 
a := b mod 3 + a div 2; 
b := a+b;
writeln(b);
end.

Вывод
23

Function ProdDig(n:longint):longint;
var
  p:longint;
begin
  p:=1;
  while n>0 do begin
    p:=p*(n mod 10);
    n:=n div 10
  end;
  ProdDig:=p
end;

var
  f:Text;
  a,b,c:longint;
begin
  Assign(f,'abc.txt');
  Reset(f);
  Readln(f,a,b,c);
  Close(f);
  Assign(f,'abcout.txt');
  Rewrite(f);
  Writeln(f,ProdDig(a+b+c));
  Close(f)
end.

Вариант без использования функции:
var
  f:Text;
  a,b,c,p,s:longint;
begin
  Assign(f,'abc.txt');
  Reset(f);
  Readln(f,a,b,c);
  Close(f);
  s:=a+b+c; p:=1;
  while s>0 do begin
    p:=p*(s mod 10);
    s:=s div 10
  end;
  Assign(f,'abcout.txt');
  Rewrite(f);
  Writeln(f,p);
  Close(f)
end.

Var
  n:integer;
begin
  n:=100;
  while n<=999 do begin
    Write(n,' ');
    n:=n+5
  end
end.

Результат работы программы:
100 105 110 115 120 125 130 135 140 145 150 155 160 165 170 175 180 185 190 195 200 205 210 215 220 225 230 235 240 245 250 255 260 265 270 275 280 285 290 295 300 305 310 315 320 325 330 335 340 345 350 355 360 365 370 375 380 385 390 395 400 405 410 415 420 425 430 435 440 445 450 455 460 465 470 475 480 485 490 495 500 505 510 515 520 525 530 535 540 545 550 555 560 565 570 575 580 585 590 595 600 605 610 615 620 625 630 635 640 645 650 655 660 665 670 675 680 685 690 695 700 705 710 715 720 725 730 735 740 745 750 755 760 765 770 775 780 785 790 795 800 805 810 815 820 825 830 835 840 845 850 855 860 865 870 875 880 885 890 895 900 905 910 915 920 925 930 935 940 945 950 955 960 965 970 975 980 985 990 995

var
  n,s:integer;
begin
  n:=102; s:=0;
  while n<150 do begin s:=s+n; n:=n+2 end;
  Writeln('Сумма четных чисел на интервале (100;150) равна ',s)
end.

Результат работы программы:
Сумма четных чисел на интервале (100;150) равна 3000