language: Tcl (tclsh 8.5.7)
date: 112 days 15 hours ago
link:
visibility: public
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program computeaverage;
        
const
        skip = ' ';
 
var
        score1, score2, score3 : integer;
        average : real;
 
begin
        readln (score1, score2, score3);
        average := (score1 + score2 + score3) / 3;
        writeln;
        writeln (Skip:10, 'The numbers are', score1:4, score2:4, score3:4);
        writeln;
        writeln (Skip:10, 'Their average is', average:8:2);
end.