1. переведите на язык программирования: а) ввести а и с увеличить а в 10 раз уменьшить с в 20 раз напечатать модуль разности а и с б) ввести а и с если а> с, то увеличить а в 5 раз иначе уменьшить с в 2 раза напечатать значения а и с конец в) ввести a, b и с найти сумму b и с если полученная сумма больше а то увеличить b на 10, иначе уменьшить с на 15 напечатать a, b и с конец

Program 1;
Var a,c: integer;
Begin
Read(a,c);
A := a*10;
C := c mod 20;
Write(abs(a-c));
End.

Program 2;
Var a,c: integer;
Begin
Read(a,c);
if a > c then
A := a*5
Else c := c mod 2;
Write(a,c);

Program 3;
Var a,b,c, sum: integer;
Begin
Read(a,b,c);
Sum := b+c;
If sum > a then
B := b +10
Else c := c-15;
Write(a,b,c);
End.

Длительность не превышает 10 минут, то есть 10*60=600 секунд.
Для удобства переведём скорость из Кбит/сек в Кбайт/сек по формуле кбит/8=кбайт
32 Кбит/с / 8 = 4 Кбайт/с
То есть за 1 секунду передаётся 4 Кбайт, значит за 600 секунд будет передано 600*4= 2400 Кбайт 

Соглашусь с alviko, вариант 2:
За секунду передаётся 32 Кбит, то есть 32 000 бит. Переводим в байты (делим на 8), получаем 4000 байт/с. 
На передачу уходит максимум 600 секунд, то есть за 600 секунд будет передано
4000*600=2 400 000 байт.
Переведём байты в килобайты (разделим на 1024)
2 400 000 байт / 1024 = 2343,75 Кбайт
В задании не сказано, целое ли количество кбайт требуется в ответе. Если целое, то ответ 2343 Кбайт (округляем в меньшую сторону, т.к. 2344 Кбайт за 10 минут мы передать не можем).

6. Цикл for выполнится 10 раз (значение n от 4 до 13), и каждый повтор к s будет прибавляться 15. То есть после выполнения s=150

5.
a := 2468;
b := (a mod 1000)*10 
a mod 1000 - остаток от деления 2468 на 1000, то есть 468.
b = 468*10 = 4680

a := a div 1000 + b;
a div 1000 - деление 2468 на 1000 с остатком, то есть 2
a = 2 + b = 4680 + 2 = 4682

ответ: 4682 4680

4. Цикл while выполняется, пока s < 100, и каждый повтор цикла s увеличивается на k, при этом k каждый повтор цикла увеличивается на 4. То есть 

1 повтор цикла: s = 0, k = 4
2 повтор цикла: s = 4, k = 8
3 повтор цикла: s = 12, k = 12
4 повтор цикла: s = 24, k = 16
5 повтор цикла: s = 30, k = 20
6 повтор цикла: s = 50, k = 24
7 повтор цикла: s = 74, k = 28
8 повтор цикла: s = 102, k = 32, условие перестало выполняться, цикл завершился.
k = 32