Решить задачу с массивом.
Прочитать 8 симолов, Напечатать, если ли среди них символ «звездочка»

program ryazantsev;var i:integer;bool:boolean;a:array[1..8] of string;beginbool:=false;for i:=1 to 8 do readln(a[i]);for i:=1 to 8 do if a[i]='*' then beginbool:=true; break; end;if bool then writeln('звездочка есть')else writeln('звездочки нет')end.