Напишите программу на паскале.вычислите произведение чисел от 1 до 100 кратных 3

Var i, p: longint; begin p: =1; for i: =1 to 100 do if (i mod 3)=0 then p: =p*i; writeln('resuktat ',p) end.

Var  day: integer;   begin  writeln('введите номер дня недели(1-7): ');   readln(day);       case day of    1: writeln('понедельник');     2: writeln('вторник');     3: writeln('среда');     4: writeln('четверг');     5: writeln('пятница');     6: writeln('суббота');     7: writeln('воскресенье');     else      writeln('неверно введён день недели! ');   end; end.

1)необходимо аккуратно обращаться с ; запрещается работать с неисправным компьютером; нельзя заниматься очисткой компьютера, когда он находится под напряжением; недопустимо самостоятельно проводить ремонт оборудования при отсутствии специальных навыков; нельзя располагать рядом с компьютером жидкости, а также работать с мокрыми руками; нельзя в процессе работы с пк прикасаться к другим металлическим конструкциям (например, батареям); не допускается курение и употребление пищи в непосредственной близости с пк и др