информатика!❤️ 2. Приведены фрагменты программы. Какое значение получит х после завершения программы?

1)

X:=0;

for i:=1 to 5 do

for k:=i+1 to 5 do

х=х+1;

2)

X:=0;

for i:=1 to 5 do for k:=i+1 to 5-i do

x:=x+1;

4)

X:=103;

for i:=1 to 3 do for k:=0 to i do

x:=x+(k-i);

3. Допишите программу и выведите результат.

1)

for i:=1 to 4 do

begin

ifi mod 2 = 0 then

n:=i+1

else

n:=i;

for k:=1 to n do

write(n-i, );

writeln;

end;

2)

for i:=1 to 3 do

for k:=3 downto 1 do for n:=i-k to (i+k) div 2 do write(n,');

3)

x:=0;

for i:=1 to 5 do

for k:=i-1 to i+1 do

х=х+k;

По моему так:
program p;
var
a,b,c:integer;
begin
writeln('первое число:');
readln(a);
writeln('второе число:');
readln(b);
writeln('третие число:');
readln(c);
if (a>b) and (a>c) then
writeln('Первое число является наибольшим');
if (a>b) and (a<c) or (a<b) and (a>c) then
writeln('Первое число является средним');
if (a<b) and (a<c) then
writeln('Первое число является наимешим');
if (b>a) and (b>c) then
writeln('Второе число является наибольшим');
if (b>a) and (b<c) or (b<a) and (b>c) then
writeln('Второе число является средним');
if (b<a) and (b<c) then
writeln('Второе число является наимешим');
if (c>b) and (c>a) then
writeln('Третие число является наибольшим');
if (c>b) and (c<a) or (c<b) and (c>a) then
writeln('Третие число является средним');
if (c<b) and (c<a) then
writeln('Третие число является наимешим');
end.

Var s: string;
    i, z, n, a: integer;
begin
     readln(a);
     s := floattostr(a);
     for i := 1 to length(s) do
     begin
         if (s[i] = '0') then inc(z);
         if (s[i] = '9') then inc(n);
     end;
     writeln(z, ' ', n);
     if (z > n) then writeln('"0" > "9"');
     if (z < n) then writeln('"0" < "9"');
     if ((z = 0) and (n = 0)) then writeln('"0" = "9" = 0!')
        else if (z = n) then writeln('"0" = "9" = ', z);
end.

Только я тут испугался аж: всё правильно, а не так пишет х) Если ввести число, начинающееся с нуля, то первые нули отбросятся:)