Зная, что в кодировке Windows десятичные коды прописных букв на 32 меньше кодов соответствующих строчных букв, вычислите двоичный код прописной буквы "и". Код строчной буквы "И" - 11001000

program chislo;

var x: integer;

          z,y : real;

begin

readln(x);

y: =5.5;

z: = x-y;

writeln(z);

end.

при запуске программы вводите эти значения и тестируете.

не знаю в каком виде это должно быть

1 ввод возрастов

2 если s> m то пишем "саша старше маши "

3 иначе если s=m то пишем "саша и маша ровестники"

4 иначе пишем "маша старше саши"

в первом нет строчки 3

var

a: array [1..20] of integer;

i,max: integer;

begin

max: =0;

for i: =1 to 20 do

begin

if i mod 2=0 then a[i]: =random(50)+50

else  a[i]: =random(50)+150;

if a[i]> max then max: =a[i];

write(a[i]: 4);

end;

writeln;

writeln('max=',max);

end.

1) +1 = 12) +1 = 23) +1 = 34) *2 = 65) *2 = 126) *2 = 247) +1 = 258) *2 = 50