Составить программу на паскале.компьютер запрашивает символ и выдаёт его код.

program alimka1908; uses crt; var  x,c: real; begin  write('введите стоимость проездного '); readln(x);   write('введите сумму штрафа '); readln(c);   writeln('в этом месяце вас оштрафовали 5 раз на общую сумму ',5*c,' рублей.');   writeln();   if (5*c> x) then           writeln('ездить зайцем невыгодно. купите себе проездной')      else           writeln('вы удачливый заяц - вам это выгодней, чем тратить деньги на проездной'); end.

program natasha1925_2; uses crt; const n=50; var  a: array[1..n,1..n] of integer;   t: integer;   i,j,kwo: integer;   yes: boolean; begin  writeln('*** alphaues is ***');   writeln('***                  ok                        ***');   writeln();   randomize;   {создание массива}  for i: =1 to n do      begin          for j: =1 to n do              begin                  a[i,j]: =random(101)-50;                   write(a[i,j]: 7: 2);               end;           writeln();       end;   write('введите число t: '); read(t);   {поиск строк}  kwo: =0;   for i: =1 to n do      begin          yes: =false;           for j: =1 to n do              if a[i,j]=t then                  yes: =true;           if yes then kwo: =kwo+1;       end;   writeln('количество строк: ',kwo); end.