Гипермәтін ұғымын 1965 жлы кім енгізді

writeln('a[',i,']=',a[i]);

readln;

end.

а где сама таблица? все равно она везде одинаковая, так что держите фрагмент ваш:

byck is my dog.

var

i,j,k: integer;

s,p: string;

begin

p: ='abcdefghijklmnopqrstuvwxyzабвгдеёжзийклмнопрстуфхцчшщъыьэюя';

readln(s);

k: =0;

for i: =1 to length(s) do

for j: =1 to length(p) do

if s[i]=p[j] then k: =k+1;

writeln(k);

end.

program vvl;

var x: integer;

      v: real;

begin

write('x=');

readln (x);

v: = abs(a)-2;

writeln ('v='; v: 2: 1);

end.