Можете написать алгоритм для ГРИС стрелочка для вот этой фигуры:

var

  x,y,z: longint;

begin

  readln(x,y,z);

if (x> 100)or(y> 100)or(z> 100) then writeln('false')

else writeln('true');

end.

954-459=495

все условия соблюдены

1 кбайт

1000 байт

1024 бит

1 байт

1 бит 

var s1, s2: string;

begin writeln('введите строку'); readln(s1); writeln('введите слово'); readln(s2); writeln('позиция слова в строке'); writeln(pos(s2, s1)); end.