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.