-
Notifications
You must be signed in to change notification settings - Fork 0
/
ar.pas
36 lines (30 loc) · 896 Bytes
/
ar.pas
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Program ar;
uses sysutils;
var num1,num2,total,num3 : Integer;
var avg: real;
var
YY,MM,DD : Word;
begin
write('Welcome to AR Num averager');
write(' This program will calculate the mean of two numbers inputed ');
WriteLn('**enter first no**');
Read(num1);
WriteLn('enter second no');
if num1 <= 0 then
writeln('NOTED% zero is used');
Read(num2);
WriteLn('enter third no');
if num2 <= 0 then
writeln('NOTED% zero is used');
read(num3);
if num3 <= 0 then
writeln('NOTED% zero is used');
total :=num1 + num2 + num3;
avg :=total/3;
WriteLn('total is ',total);
WriteLn('average is ',avg);
write('Copyright AR Systems. go to https://sarthihan.github.io ');
writeln ('Date : ',Date);
DeCodeDate (Date,YY,MM,DD);
writeln (format ('Calculations Done on: %d/%d/%d ',[dd,mm,yy]));
end.