Написать программу вычисления среднего арифметическое трех чисел с клавиатуры результат вывести с четырьмя знаками после запятой

Pascal: var a,b,c: real; begin   write ('number 1: ');   readln (a);   write ('number 2: ');   readln (b);   write ('number 3: ');   readln (c);   writeln ('srednee: ',(a+b+c)/3: 0: 4);   readln; end. c++: #include < iostream> #include < iomanip> using namespace std; int main() {     float a,b,c;     cout.setf(std: : ios_base: : fixed,std: : ios_base: : floatfield);       cout < < "number 1: ";     cin > > a;             cout < < "number 2: ";     cin > > b;     cout < < "number 3: ";     cin > > c; cout.precision(4);     cout < < "srednee: " < < (a+b+c)/3 < < endl;     return 0; }

Всостав алфавита языка паскаль входит:   символы для составления переменных-                                                                 латинские(строчные, прописные)                                                                 символ "_"                                                                 цифры (0..9)     символы разделители (пробельные символы)  составные символы - особенная группа символов, которая                                                воспринимаются компилятором как                                                  один  символ  "< =" , ": =","> =", "..", "//" "< > " "(*" "*)"   зарезервированные слова- слова, несущие определенное                                                          смысловое значение для компилятора  спец-символы- символы, которые предназначены для построения                                  конструкций языка, в паскале это:                                                                               ' - + / * : ; = { } [ ] ( ) $ и т.п   на самом деле их больше, но это основные.

12 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 uses crt; var n: longint;     k: byte;   procedure krz (c: longint; var kz: byte); var m: set of byte;     z: byte; begin if c< 0 then c: =c*(-1); if c=0 then kz: =1 else     begin     m: =[];     kz: =0;     while c> =1 do           begin           if not (c mod 10 in m) then             begin             inc(kz);             m: =m+[c mod 10];             end;           c: =c div 10;           end;     end; end;   begin write('n='); readln(n); krz (n,k); writeln(k,' различных цифр'); readln; end.