1)
var
s: string;
count, i: integer;
begin
readln(s);
for i := 1 to length(s) do
if(s[i] = '4') or (s[i] = '5') then inc(count);
writeln('Кол-во цифр "4" и "5" в тексте: ', count);
end.
2)
var
x, y: integer;
begin
writeln('Введите x, y: '); readln(x, y);
if(x mod y = 0) then writeln('Является делителем')
else writeln('Не является делителем');
end.
3)
var
a, b, c: integer;
begin
writeln('Введите стороны треугольника: '); readln(a, b, c);
if(abs(a - b) < c) and (c < (a + b)) then writeln('Это не треугольник')
else writeln('Это треугольник');
end.
4)
var
s, sout: string;
i: integer;
begin
s := 'информатика';
for i := 3 to 8 do
sout := sout + s[i];
writeln(sout);
end.
p.s насчет 4 - не уверен.