В компьютерной технике для кодировки символов используется кодировочные таблицы Unicode и ASCII

unicode

Объяснение:

program zadacha;

uses crt;

var a: array[1..6] of integer;

        max,i: integer;

begin

for i: =1 to 6 do readln(a[i]);

max: =a[1];

for i: =1 to 6 do if max > a[i] then max: =a[i];

writeln(max);

readln;

end.

вроде правильно..

на выходе 109

program p_1; var x,y: real; beginwriteln ('vvedite x'); readln(x); writeln ('vvedite y'); readln(y) ; if x=1 then y: =3; {на всякий случай, мало ли по клавише тне никак не можно ставить другие значения. эту строчку можно и }x: =y-x; y: =2*x; x: =2*y+x; y: =y+x/2; writeln(x,'',y); readln; end.