3. Найти сумму всех кратных 3 или 5 ниже 10. Заполните таблицу трассировки​

var a,b,c,x: real;

begin

writeln('Введите результат 1 ученика: ');

readln(a);

writeln('Введите результат 2 ученика: ');

readln(b);

writeln('Введите результат 3 ученика: ');

readln(c);

writeln('Введите проходной балл: ');

readln(x);

if (a>b) and (a>c) then

begin

writeln('Высший балл в следующий тур')

else

writeln('Не в следующий тур');

end;

if (b>a) and (b>c) then

begin

writeln('Высший балл в следующий тур')

else

writeln('Не в следующий тур');

end;

if (c>a) and (c>b) then

begin

writeln('Высший балл в следующий тур')

else

writeln('Не в следующий тур');

end;

end.

1)

var

 num: integer;

begin

 writeln('Введите число');

 read(num);

 if(num mod 2 = 0) then  

   write('Число четное')

 else  

   write('Число нечетное');

end.

2)

var

 a, b, i: integer;

begin

 writeln('Введите a');

 read(a);

 writeln('Введите b');

 read(b);

 if (a > b) then

   swap(a, b);

 for i := 0 to  

 b - a - 1 do

   a := a + 1;

end.

3)

var

 num: integer;

begin

 writeln('Введите число');

 read(num);

 if (num div 1000 = 0) and (num div 100 <> 0) then  

   write('Число трехзначное')

 else  

   write('Число не трехзначное');

end.