Паскаль - вопрос №54771

-----------------Номер РАЗ

program one;
var
a,b:real;
begin
write('Введите первое число: ');
readln(a);
write('Введите второе число: ');
readln(b);
if (a<b) br=""> begin
writeln('Первое число меньше, его куб = ',a*a*a:0:5);
end
else
if (b<a) br=""> begin
writeln('Второе число меньше, его куб = ',a*a*a:0:5);
end
else
writeln('Числа равны');

write('Нажмите ENTER для завершения');
readln

end.
 </a)></b)>

<b) br=""><a) br="">

-----------------Номер ДВА

program two;

var

a,b:real;
begin
write('Введите первое число: ');
readln(a);
write('Введите второе число: ');
readln(b);

if (a<0) then writeln('Первое число отрицательное');
if (b<0) then writeln('Второе число отрицательное');
if (a>=0) and (b>=0) then writeln('Отрицательных нет');

write('Нажмите ENTER для завершения');
readln

end.

 <b) br="" then="">
Всё проверил во FreePASCAL, при выводе использовал модификаторы :0:2 и :0:5 для вещественных чисел, которые означают количество выводимых цифр до запаятой и соответсвенно после запятой (0 значит всё что есть, а также влияет на ведущие или последующие нули, можете поиграться при желании)</b)>

----------------НОМЕР ТРИ

program three;
var
a,b:real;
begin
write('Введите стоимость покупки: ');
readln(a);
write('Введите полученные деньги: ');
readln(b);

if (a=b) then writeln('Спасибо') else
if (a<b) br="" then=""> writeln('Недостаточно средств: ',a-b:0:2);

write('Нажмите ENTER для завершения');
readln

end.
 </b)>

фильт убирает знаки больше меньше, не могу нормально код запостить, скиньте почту что-ли?