fork download
copy 
  1. program ideone;
  2. var
  3. i:integer;
  4. aso:char;
  5. sityva:string;
  6. begin
  7. readln(aso);
  8. readln(sityva);
  9. for aso:='A' to 'Z' do
  10. sityva:=sityva + aso;
  11. writeln(sityva);
  12. end.
Success #stdin #stdout 0s 4376KB
comments (?)
stdin
copy 
a
dato
stdout
copy 
datoABCDEFGHIJKLMNOPQRSTUVWXYZ
https://ideone.com/bYMAxr
language:
Pascal (gpc 20070904)
created:
4 years 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!