fork download
copy 
  1. var
  2. i,j,a,b,pom,n:integer;
  3. begin
  4. readln(n);
  5. for i:=1 to n do
  6. 	begin
  7. 	pom:=1;
  8. 	readln(a,b);
  9. 	if b=0 tken writeln(1);
  10. 	for j:=1 to b do
  11. 	pom:=pom*a;
  12. 	writeln(pom);
  13. end;
  14. end.
Compilation error #stdin compilation error #stdout 0s 0KB
comments (?)
stdin
copy 
Standard input is empty
compilation info 
Free Pascal Compiler version 2.2.0 [2009/11/16] for i386
Copyright (c) 1993-2007 by Florian Klaempfl
Target OS: Linux for i386
Compiling prog.pas
prog.pas(9,9) Fatal: Syntax error, "THEN" expected but "identifier TKEN" found
Fatal: Compilation aborted
Error: /usr/bin/ppc386 returned an error exitcode (normal if you did not specify a source file to be compiled)
stdout
copy 
Standard output is empty
https://ideone.com/26x0b
language:
Pascal (fpc 3.0.4)
created:
14 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!