fork download
copy 
  1. program stepen;
  2. var x,n,j,l: integer;
  3. begin
  4.  writeln('Ведите число x и его степень n');
  5.  redln(x,n);
  6.  when j<=n do
  7.  l:=x*x;
  8.  else l:=1;
  9.  while j<=n do
  10.   begin
  11.    l:=l*x;
  12.    j:=j+1;
  13.   end;
  14.  writeln('Число ',x,' в степени ',n,' равно 'l);
  15. end.
Compilation error #stdin compilation error #stdout 0s 9136KB
comments (?)
stdin
copy 
23
compilation info 
prog.pas: In main program:
prog.pas:5: error: undeclared identifier `redln' (first use in this routine)
prog.pas:5: error:  (Each undeclared identifier is reported only once
prog.pas:5: error:  for each routine it appears in.)
prog.pas:6: error: undeclared identifier `when' (first use in this routine)
prog.pas:6: error: syntax error before `j'
stdout
copy 
Standard output is empty
https://ideone.com/tvlsLi
language:
Pascal (gpc 20070904)
created:
7 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!