var a:array [1..100] of integer;n, i:integer;beginn:=100;for i:=0 to n doa[i]:=i;for i:=1 to n dobegina[i]:=a[i]-a[i-1];end;writeln(a[90]);end.
Standard input is empty
45
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!