с лабораторной.
HTML Документ.
Если могу скинуть на карту денег

// pascalabc.net

// версия 3.3.5 сборка 1662 (29.04.2018)

а

begin

    println('кол-во символов -',readstring('слово-> ').length)

end.

пример:

741258963

кол-во символов - 9

б

begin

    var s: =readstring('слово-> ').tolower;

    println(s[1]=s[s.length]? '': 'не ');

end.

пример:

слово-> олово

в

begin

    var s: =readstring('слово-> ');

    println(s[1],s[2],s[s.length]);

end.

пример:

слово-> плотина

п л а

г

begin

    println(readstring('слово-> ').length mod 2=0? 'четно': 'нечетно');

end.

пример:

слово-> виноград

четно

var

  n,i,a: integer;

begin

  readln(n);

  for i: =1 to n do

  begin

  read(a);

  write(abs(a),' ');

end;

end.

var

s,s1: real;

k: integer;

begin

s: =10;

k: =1;

while s< 20 do

begin

s: =s*1.1;

k: =k+1;

end;

writeln('в ', k,' день он пробежит 20 км');

s: =10;

s1: =10;

k: =1;

while s< 200 do

begin

s: =s+s1*1.1;

s1: =s1*1.1;

k: =k+1;

end;

writeln('в ', k,' день суммарный пробег превысит 200 км');

end.

1)никакие художники не могут повторить замечательный стиль рисования известного художник маковского

2)все великие писатели в своё время переносили критику,но это делало их только сильнее.

дальше не придумал

(с уважением tipaeinstein)