- Code: Select all
`program EpicCalc;`

{$APPTYPE CONSOLE}

uses

SysUtils;

var

N1, N2, sum: Integer;

Type

NRange = 0..50;

begin

repeat

Write('Number1 (+)');

ReadLn(n1);

Write('Number2 (+)');

ReadLn(n2);

sum:= n1 + n2;

if sum = 11 then Write('Also, Sum is 11 ');

WriteLn('Result:', Sum);

Write('Random Number:', NRange(random(45684664235261)));

until false ;

end.

It is can calculate 2 numbers(+) and if result is 11 it is writing 'Also, Sum is 11' which is KICK-ASS too. Ive forgot about main feature of this genius project - after calculating it even writing down random number in range 0-50!! I am a superior leader.