1. даны три целых числа а, в, с. найти их сумму, произведение, а также разность между а и в и частное чисел в и с. 2. даны два числа а и в. найти на сколько первое число меньше второго.

Если нужны программы на Паскале, то держи. Во втором, правда, не учитывается то, что числа могут быть равны. Если это сделать, то будет лишним палевом перед преподом, думаю)

№1

var A, B, C, sum, razn, proizv: integer; chastnoe: real;
label undf;
begin
undf: writeln('Введите А:');
readln(A);
writeln('Введите B:');
readln(B);
writeln('Введите C:');
readln(C);
sum := A + B + C; // находим сумму АВС
proizv := A * B * C; // находим произведение АВС
razn := A - B; // находим разность А и В
chastnoe := B / C; // находим частное В и С
writeln('Сумма А, В, С: ', sum);
writeln('Произведение А, В, С: ', proizv);
writeln('Разность А и В: ', razn);
writeln('Частное В и С: ', chastnoe);
end.

№2

var A, B, razn: integer;
begin
write('Введите А: ');
readln(A);
write('Введите B: ');
readln(B);
razn := abs( A - B );
if A < B then writeln('Первое число меньше второго на ', razn)
else writeln('Первое число больше второго на ', razn);
end.

Задача 1 
begin
var
a,b,c : integer;
readln ( a,b,c);
writeln (a+b+c);
writeln (a*b*c);
writeln ( a-b);
writeln ( b/c);
end.

Задача 2
begin
var
a,b : integer;
readln ( a,b);
if a>b then writeln (a/b);
if b>a then writeln (b/a);

end.

Ах, а блок-схема? Сам сможешь сделать?