2. Составить программу, которая вычисляет количество чисел кратных 3, 4 и 5 одновременно в диапазоне от 1 до 1000.
3. Составить программу, которая вычисляет факториал числа 7!

еще к слову не забывайте форматировать код. там же есть даже специальная кнопочка для этого

4 с конца у вас на скриншоте

да, сначала ошибка была. Потом исправила

Удачи в освоении паскаля

Спасибо!

1.Program dfgd;var x,i:integer;beginx:=0;for i:=1 to 1000 doif (i mod 3) = 0 then if (i mod 4) = 0        then if(i mod 5) = 0then x:=x+1;writeln('Чисел, кратных 3,4 и 5 - ',x);end.2. Program Factorial7;var f:longint;i: byte;beginf:=1;for i:=2 to 7 dof:=f*i;writeln('7! = ', f);end.