program w7w7;
var a:real;
begin
readln (a);
if a<0 then writeln ('otritsatelnoe chislo');
if a>0 then writeln ('pologitelnoe chislo');
end.
Var
B,X:real;
Begin
Write('B = ');ReadLn(B);
Write('X = ');ReadLn(X);
Write('Итоговая стоимость = ',X*B*0.8,' руб.')
End.
В три десятом царстве в неком тексте был народ килобайт было внем семей 1024. Каждую семью звали байт .В каждой семье жило 8 бит .
В скобках указывала основание системы счисления.