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. |
cHJvZ3JhbSBjb21wdXRlYXZlcmFnZTsKCQpjb25zdAoJc2tpcCA9ICcgJzsKCnZhcgoJc2NvcmUxLCBzY29yZTIsIHNjb3JlMyA6IGludGVnZXI7CglhdmVyYWdlIDogcmVhbDsKCmJlZ2luCglyZWFkbG4gKHNjb3JlMSwgc2NvcmUyLCBzY29yZTMpOwoJYXZlcmFnZSA6PSAoc2NvcmUxICsgc2NvcmUyICsgc2NvcmUzKSAvIDM7Cgl3cml0ZWxuOwoJd3JpdGVsbiAoU2tpcDoxMCwgJ1RoZSBudW1iZXJzIGFyZScsIHNjb3JlMTo0LCBzY29yZTI6NCwgc2NvcmUzOjQpOwoJd3JpdGVsbjsKCXdyaXRlbG4gKFNraXA6MTAsICdUaGVpciBhdmVyYWdlIGlzJywgYXZlcmFnZTo4OjIpOwplbmQuCgo=
-
upload with new input
-
result: Runtime error time: 0.03s memory: 5272 kB signal: -1
invalid command name "program" while executing "program computeaverage" (file "prog.tcl" line 1) -
result: Runtime error time: 0.03s memory: 5272 kB signal: -1
invalid command name "program" while executing "program computeaverage" (file "prog.tcl" line 1)



