Пути продвижения и реализации стартапа вычеркнуть лишнее

program xxx;

  var a,b,c : string;

begin

    write('введите название 1 фигуры-');

    readln (a);  

    write('введите название 2 фигуры-');

    readln (b);  

    write('введите название 3 фигуры-');

    readln (c);

    writeln (' фигуры: ',a,b,c);

    readln

end.

1)tut kazhdii simvol zanimaet 1 bait(tak imeem bukvi alfavita( soobshenie s uchetom probela zanimaet 10 bait.

2)tut kazhdii simvol zanimaet 1 bait(tak ispol'zovani znaki + i - pmimo 0 i 1);

  soobshenie zanimaet 11 bait.

3)analogichno 15 bait.

var a,b: real;

begin 

  readln(a,b);

  if a*b< 0 then writeln(a*b*2) else writeln(a*b*1.5);

end.

и /н -п верхнее подчёркиванием \ш_