дано трехзначное число. найти среднеарифмитическое его цифр и прибавить произведение первой и последней цифры

var a,b,c,g,b1,s:integer;cr:real;beginWriteln('Введите число');Readln(a);b1:=a mod 10;c:=a div 10;c:=c div 10;g:=b1*c;while a>0 dobeginb:=a mod 10;s:=s+b;a:=a div 10;end;cr:=s/3;Writeln('Среднее число равно ',cr);Writeln('Произведение первой и последней цифрой равно ',g);end.