fork download
copy 
  1. program gr8(input,output);
  2. var p, i, n, k, j, s : integer;
  3.      flag : boolean;
  4.  
  5. function dunami(a,i : integer): integer
  6.  var k : integer;    
  7.  begin
  8.    dunami := 1;
  9.      for k := 1 to i do
  10.        dunami := dunami*a
  11.   end;
  12.  
  13. begin
  14. readln(n);
  15. for p := 1 to n do
  16.  begin
  17.   repeat
  18.     i := 0;
  19.       repeat
  20.          j := 0;
  21.             repeat
  22.               k := 0;
  23.               flag := false;     
  24.                 if dunami(2,k) + dunami(3,j) + dunami(5,i) = p then 
  25.                   begin
  26.                     s := s + 1;
  27.                     flag := true;
  28.                   end;  
  29.                   k := k + 1;
  30.             until   (flag = true)  or (dunami(2,k) + dunami(3,j) + dunami(5,i) >= p);
  31.              j := j + 1;
  32.       until   (flag = true) or   (dunami(2,k) + dunami(3,j) + dunami(5,i) >= p);
  33.          i := i + 1;
  34.    until   (flag = true) or   (dunami(2,k) + dunami(3,j) + dunami(5,i) >= p);
  35.  end;        
  36. writeln(s)
  37. end.                     
  38.  
  39.  
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(6,2) Fatal: Syntax error, ";" expected but "VAR" 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/YYwgV
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!