Var x,y,z:intefer;
begin
writeln('Vvedite 3 chisla');
readln(x,y,z);
if (x <span>mod5=0) then writeln(x);
</span>if (y <span>mod5=0) then writeln(y);
</span>if (z <span>mod5=0) then writeln(z);
</span>end.
Да! может содержать вложенные каталоги
Var
a,b:string;
begin
write('Введите строку: ');
readln(a);
write('Введите символ: ');
readln(b);
if pos(b,a)=0 then writeln('Символа ',b,' в строке нет') else writeln('Символ ',b, ' находится на ', pos(b,a), ' месте');
end.