Нечего не видно
приблизь фото
1.
var a,b:string;c:integer;
begin
readln (a);
b:='a';
c:=pos(b,a);
if c<>0 then writeln ('Есть буква а') else writeln ('Нет буквы а');
end.
Исполнитель Чертёжник, PascalABC.NET 3.2
uses Drawman;
procedure Hexagon();
begin
PenDown;
OnVector(2, 1);
OnVector(0, 2);
OnVector(-2, 1);
OnVector(-2, -1);
OnVector(0, -2);
OnVector(2, -1);
PenUp;
end;
begin
Field(15, 7);
ToPoint(3, 1);
Hexagon();
OnVector(2, 0);
Hexagon();
OnVector(2, 0);
Hexagon();
end.
Не знаю как в паскале, но в си это называется динамические массивы и создаются они через указатели, тип элементов массива может быть любым. типом индекса в си и паскале может быть только integer, в других же языках могут быть ассоциативные массивы, индексом которых является строка(в php так)