Помогите, пожалуйста.
Даны 3 различных целых числа. Найти среднее из них. Basic.

необходимо сравнить их  бейсик не знаю вот в паскале накидал. думаю не много зная синтаксис бейсика проблем не будет.uses crt; var a,b,c,min,max,srednee:integer; begin writeln('Введите 3 целых числа:');  read(a,b,c);  ax:=a else max:=b;  if c>max then max:=c; if a<b then min:=a else min:=b; if c<min then min:=c; srednee:=a+b+c-mn-mx; write('среднее число=',srednee); end.

INPUT "A=";AMIN=AMAX=AINPUT "B=";BIF B<MIN THEN MIN=BIF B>MAX THEN MAX=BINPUT "C=";CIF C<MIN THEN MIN=CIF C>MAX THEN MAX=CS=A+B+C-MAX-MINPRINT "S=";SЕсли речь идет о среднем арифметическом, тоINPUT "A=";AINPUT "B=";BINPUT "C=";CS=(A+B+C)/3PRINT "S=";S