1)дано двузначное число. определить: разность первой и второй цифры. 2)дано трехзначное число. определить: больше ли числа а(вводится с клавиатуры) произведение его цифр. паскаль написать программу блок схему

Блок-схемы - в прилагаемом файле.
1.
var a,a1,a2:integer;
begin
readln(a);
a1:=a div 10;
a2:=a mod 10;
writeln(a1,'-',a2,' = ',a1-a2);
end.

Пример:
49
4-9 = -5

2.
var n,n1,n2,n3,p,a:integer;
begin
readln(n,a);
n1:=n div 100;
n2:=n div 10 mod 10;
n3:=n mod 10;
p:=n1*n2*n3;
if p>a then writeln(p,' > ',a)
else writeln(p,' <= ',a);
end.

Пример:
284 30
64 > 30