Ввести два числа a и b . меньшее заменить полусуммой, а большее удвоенным произведением. (паскаль)

Var a, b, c: real;
readln(a);
readln(b);
c := 0;
if a > b then
begin
c := a;
a := 2*a*b;
b := (c + b) / 2;
end
else
if a < b then
begin
c := a;
a := (a + b) / 2;
b := 2* a*b;
end
else
writeln('Числа равны');
writeln(' a = ', a, 'b = ', b);

кажется так
но чето могу напутать, не сидел с паскалем года 3

Program prog;
uses crt;

var a,b,t: real;

begin
clrscr;

write('a = ');
readln(a);
write('b = ');
readln(b);
if (a>b) then
   begin
   t:=a;
   a:=2*a*b;
   b:=(t+b)/2;
   end;
if (a<b) then
   begin
   t:=b;
   b:=2*a*b;
   a:=(t+a)/2;
   end;
if(a=b) then
        writeln('Числа равны')
        else
        writeln('a = ', a, ', b = ', b);
end.

1)

так как в предложении 37 символов

37*2(так как каждый символ 2 байта) = 74 байта

байты переводим в биты получаем 74 * 8 = 592 бита

2)

20*32*16 = 10240 (количество символов в статье)

каждый символ кодируется 16-ю битами,

10240 * 16 = 163840 бит.

можно перевести в килобайты.

163840 бит/8 = 20480 байт

20480/1024 = 20 кб.

ответ: 20 килобайт.

3)

160 / 8 = 20. Итого 20 символов, т.к. в 1 байте - 8 бит.

4)

0,5*1024*8/256=16 бит

5)

Общий объём ста­тьи равен x · 64 · 48 · 16 бит = 48 Кбайт.

Сле­до­ва­тель­но, ко­ли­че­ство стра­ниц в ста­тье рав­ня­ет­ся:

x = (48 · 1024 · 8)/(64 · 48 · 16) = 8.

6)

80 * 25 = 2000 символов поместится на экране монитора.

Т.к в кодировке Unicode каждый символ кодируется 16 битами, то

2000 * 16 = 32 000 бит = 32 байта.

ответ: объем текста занимающего весь экран монитора в кодировке Unicode примерно 32 байта.

7)

40 * 32 * 4 = 5120 символов в сообщении.

5 Кбайт = 5120 байт.

5120 / 5120 = 1 байт, значит, на кодирование 1 символа отводится 8 бит.

Получается, в алфавите 2^8 = 256 символов.

1)

так как в предложении 37 символов

37*2(так как каждый символ 2 байта) = 74 байта

байты переводим в биты получаем 74 * 8 = 592 бита

2)

20*32*16 = 10240 (количество символов в статье)

каждый символ кодируется 16-ю битами,

10240 * 16 = 163840 бит.

можно перевести в килобайты.

163840 бит/8 = 20480 байт

20480/1024 = 20 кб.

ответ: 20 килобайт.

3)

160 / 8 = 20. Итого 20 символов, т.к. в 1 байте - 8 бит.

4)

0,5*1024*8/256=16 бит

5)

Общий объём ста­тьи равен x · 64 · 48 · 16 бит = 48 Кбайт.

Сле­до­ва­тель­но, ко­ли­че­ство стра­ниц в ста­тье рав­ня­ет­ся:

x = (48 · 1024 · 8)/(64 · 48 · 16) = 8.

6)

80 * 25 = 2000 символов поместится на экране монитора.

Т.к в кодировке Unicode каждый символ кодируется 16 битами, то

2000 * 16 = 32 000 бит = 32 байта.

ответ: объем текста занимающего весь экран монитора в кодировке Unicode примерно 32 байта.

7)

40 * 32 * 4 = 5120 символов в сообщении.

5 Кбайт = 5120 байт.

5120 / 5120 = 1 байт, значит, на кодирование 1 символа отводится 8 бит.

Получается, в алфавите 2^8 = 256 символов.