Уличный торговец газет получает а рублей с реализации каждой из первых

1-ый вариант:

Var
   A:real;
   k:integer;
Begin
Write('Стоимость одной газеты: ');ReadLn(A);
Write('Количество газет: ');ReadLn(k);
if k lt;= 50 then WriteLn('Заработок торговца: ',k*A,' руб.')
else WriteLn('Заработок продавца: ',(A*((k-50)*1.2+50)):0:2,' руб.')
End.



Var k:integer;
    S,A:real;
Begin
Write('Цена одной газеты: ');ReadLn(A);
Write('Количество газет: ');ReadLn(k);
if k lt;= 50 then S:=k*A
else S:=A*((k-50)*1.2+50);
WriteLn('Заработок торговца: ',S:0:2,' руб.');
End.



Пример работы программы:

Стоимость одной газеты: 30.15
Количество газет: 200
Заработок продавца: 6934.50 руб.