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я задача
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);
