СРОЧНО! Написать программный код для задачи:   Ввести три числа, отыскать их

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

uses crt;

var

a,b,c,sum,p:integer;

sr:real;

begin clrscr;

write('a='); read(a);

write('b='); read(b);

write('c='); read(c);

sum:=a+b+c;

writeln(a,'+',b,'+',c,'=',sum);

p:=a*b*c;

writeln(a,'*',b,'*',c,'=',p);

sr:=sum/3;

writeln('sredn./arifm.=',sr:2:3);

readkey;

end.