1 задача:
var a:integer;
begin
writeln('Введите число');
read(a);
if (a mod 343 = 0) then writeln('Число ',a,' кратно числу 343.')
else writeln('Число ',a,' не кратно числу 343.');
end.
2 задача:
var a,s,d,e:integer;
begin
writeln('Введите трехзначное число:');
read(a);
s:=a div 100;
d:=(a div 10) mod 10;
e:=a mod 10;
if (s=0)or(d=0)or(e=0) then writeln('Число ',a,' содержит 0.')
else writeln('Число ',a,' не содержит 0.');
end.