ПОМОГИТЕ Безотлагательно,ПРОБОЛЕЛ ТЕМУ ,Задание 1. Отыскать творенье цифр трехзначного числа.

ПОМОГИТЕ Безотлагательно,ПРОБОЛЕЛ ТЕМУ ,Задание 1. Найти творение цифр трехзначного числа. Исправьте программку, запишите верный вариант.
Program 2pp;
Var a,b: integer;
Begin
Read (b);
c:=a mod 10; b:=a mod 100;
a:=a div 10;
Write (b,c,a);
End.

Задание 2. Обусловьте, что вычисляет программка?
Programp2pp;
Var a,b: integer;
Begin
Read (a,b);
a:=a div 10;
b:=b div 10;
if agt;b then write (a) else write (b);
End.

Задание 3. Обусловьте, что вычисляет программка? Programp2pp;
Programp2pp;
Var a,b: integer;
Begin
Read (a,b);
b:=a + b;
a:=b- a;
b:=b - a
write (a, , b);
End.


Задание 4. Составьте блок - схемы к заданию 1, 2.