Ответ:

1 задача

var

a,b,c,d:integer;begin

read(a);

b:=a mod 10;

c:=a div 10;

d:=b*c;

writeln(d);

end.

2я задача

var

a,b,c,d,m,k:real;begin

read(a,b);

read(c,d);

k:=a-c;

m:=b-d;

if k<m then

writeln(k) else writeln(m);

end.