Ну я думаю иконка, но честно говоря вопрос странный
var
a, b: real;
begin
writeln('Введите 2 числа');
readln(a, b);
if a > b then
begin
a:= a + 3;
b:= b - 5;
end;
if a < b then
begin
a:= a - 5;
b:= b + 3;
end;
writeln('a = ', a, ', b = ', b);
end.
Если считать те 2 точки после восклицательного знака
1)53*16бит=53*2байта=106 байта
если не считать их
1)51*2байта=102 байта