1 задание
begin
var m,a,b,c:integer;
println('Ввести 3 значения через пробел');
read(a,b,c);
m:=min(a,b);
m:=min(m,c);
print(m);
end.
2 задание
begin
var d,a, b, c: integer;
println('Ввести 3 значения через пробел');
read(a, b, c);
if(a < c) then
d := a;
if(ba:=d;
d:=d+a;
print(d);
end.