fork download

copy

var
i = real;
dipeso = real;
dopeso = real;
rpeso = real;
ypeso = real;
dinar = 113.897700;
dollar = 42.9110;
riyal = 11.448700;
yen = 0.55200;
 
Writeln('Enter an amount: '(i));
 
begin
dipeso := dinar * i;
dopeso := dollar * i;
rpeso := riyal * i;
ypeso := yen *i;
 
case peso of
 
Dinar  : Writeln('Dinar to peso: ' + dipeso);
Dollar : Writeln('Dollar to peso: ' + dopeso);
Riyal : Writeln('Riyal to peso: ' + rpeso);
Yen : Writeln('Yen to peso: ' + ypeso);
else
end;
end;
end.
 

prog.d(2): found ';' when expecting '.' following 'real'
prog.d(3): found ';' when expecting '.' following 'real'
prog.d(4): found ';' when expecting '.' following 'real'
prog.d(5): found ';' when expecting '.' following 'real'
prog.d(6): found ';' when expecting '.' following 'real'
prog.d(8): no identifier for declarator dollar
prog.d(9): no identifier for declarator riyal
prog.d(10): no identifier for declarator yen
prog.d(12): unterminated character constant
prog.d(12): found '69U' when expecting ')'
prog.d(12): no identifier for declarator Writeln
prog.d(12): semicolon expected, not 'nter'
prog.d(12): semicolon expected, not 'amount'
prog.d(12): no identifier for declarator amount
prog.d(12): semicolon expected, not ':'
prog.d(12): Declaration expected, not ':'
prog.d(12): unterminated character constant
prog.d(15): semicolon expected, not ':'
prog.d(15): Declaration expected, not ':'
prog.d(16): no identifier for declarator dopeso
prog.d(16): semicolon expected, not ':'

Standard output is empty