Dear Sir,
Please find the attached document for your reference. Could you tell me what is wrong of my answer?
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
balance, posNeg, positive, negative: integer;
begin
randomize;
writeln('Get average balance');
balance:=random(10000);
posNeg:=random(2);
if posNeg=0 then
begin
balance:=balance*-1-30;
end
else
begin
writeln('Positive balance.');
balance:=balance*1.03;
end;
writeln('Your balance is ', balance);
readln;
end.
Cheers,