Св pascal.введите символ с клавиатуры найдите сумму произведение и среднее арифметическое и среднее цифр его кода

Var c: char; a,s,p,k: integer; begin readln(c); a: =ord(c); writeln('code = ',a); s: =0; k: =0; p: =1; while a> 0 do   begin   s: =s+a mod 10;   p: =p*(a mod 10);   k: =k+1;   a: =a div 10;   end; writeln('s = ',s,' p = ',p,' sr = ',s/k: 5: 2); end. пример: & code = 38s = 11 p = 24 sr = 5.50

Var a,b,c: integer; begin writeln('введите 3 числа: '); readln(a,b,c); writeln(a,' + ',b,' + ',c,' = ',a+b+c); writeln(a,'  *  ',b,'  *  ',c,'  =  ',a*b*c); writeln('среднее арифметическое чисел = ',(a+b+c)/3); end.

Onajonm: существует несколько типов оптических дисков: cd-диски – для записи и считывания информации с них используется инфракрасный лазер, на cd-диск может быть записано до 700 мбайт информации; dvd-диски – имеют значительно большую информационную емкость, чем сd-диски, так как для записи и считывания информации с них используется лазер с меньшей длиной волны и оптические дорожки на них имеют меньшую толщину и размещены более плотно. на одной стороне dvd-диска умещается 4,7 гбайт информации, но бывают диски двухслойные, тогда объем может достигать 8,5 гбайт. в оптических дисководах используется оптический принцип записи и считывания информации. информация на оптическом диске хранится на одной спиралевидной дорожке, идущей от центра диска к периферии и содержащей чередующиеся участки с плохой и хорошей отражающей способностью.