fork download
copy 
  1. program converter;
  2. var
  3. i: byte;
  4. a: byte;
  5. b: longword;
  6.  
  7. begin
  8. readln(a);
  9. readln(b);
  10. if b>100 then writeln('Nekorektne chyslo') else
  11. case a of
  12. 1: writeln(b);
  13. 2: writeln(b*10);
  14. 3: writeln(b*100);
  15. 4: writeln(b*1000);
  16. 5: writeln(b*10000);
  17. end;
  18. end.
Success #stdin #stdout 0s 5276KB
comments (?)
stdin
copy 
1
0
stdout
copy 
0
https://ideone.com/eqiYp2
language:
Pascal (fpc 3.0.4)
created:
1 day ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!