Найдите ошибки в записи программы. перепишите программу в исправленном виде. program умножение; var a, b, c: boolean; begin read (a, b) c = a * b writeln (произведение введенных вами чисел равно , c) end.

Надо бы указывать - какой используется компилятор. вариант программы, который должен работать со всеми версиями паскаля: program prog; var a, b, c: integer; begin readln (a, b); c : = a * b; writeln ('произведение введенных вами чисел равно ', c); end.

Строчка "program умножение; " спорная т.к. некоторые компиляторы поддерживают кириллицу, например pascalabc, но лучше использовать буквы. "var a, b, c: boolean; "  boolean - это логический тип переменных true false, либо 0 1, для других чисел не подходит. я остановился на типе "real", чтобы можно было вводить не только целые числа, но и дробные, например 2,5 после каждого оператора необходимо ставить "; ", кроме того, что перед "end" там ставить не обязательно. в паскале "=" используется как оператор сравнения, а оператор присваивания выглядит так: ": =", поэтому исправим тут ошибку  "c = a * b" текст в "writeln()"  пишется в одинарных кавычках, исправляем ошибку " writeln (произведение введенных вами чисел равно , c)"и так вот готовая исправленная программа program multi; var a,b,c: real; begin     read(a,b);     c: =a*b;   writeln('произведение введенных вами чисел равно ',c) end.

var

  i,n,a: integer;

begin

  readln(n);

for i: =1 to n do

begin

  read(a);

if (a mod 3=0)and(a mod 5> 0) then write(a,' ');

end;

writeln;

end.