Даю 20 балов за решение!!!
1. Определите, без помощи компьютера, что будет напечатано в результате работы программы,
при а=129, b=235?
var
a, b: integer;
begin
write('Введите A: ');
readln(a);
write('Введите B: ');
readln(b);
if a > b then writeln ('A = ',a,'; B = ',b) else writeln ('A = ',b,'; B = ',a);
end.
2. Определите, без помощи компьютера, что будет напечатано в результате работы
программы, при k=302?
var k, number: integer;
begin
write('Введите день года: ');
readln(k);
number := k mod 7;
writeln('Номер дня недели: ',number);
end

 №1 A = 335; B = 129№2302номер дня недели: 1

1. Так как b > a, то идем по ветке "else":A = 235, B = 129.Ответ: A = 235; B = 129.2. mod - остаток от деления. Делим 302 на 7 и пишем остаток.302 mod 7 = 1.Ответ: Номер дня недели: 1.