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

//Блок-схемы в приложении
//Pascal ABC.NET v3.0 сборка 1111

//1
Var
 a,p,s:real;
begin
readln(a);
p:=a*4;
s:=a*a;
writeln('P=',p);
writeln('S=',s);
end.

//2
Var
 a,b:integer;
begin
 read(a,b);
 if a>b then writeln(b);
 if a=b then writeln('=');
 if a<b then writeln(a);
end.

{На этом и закончу всем, кто когда либо и чем либо поддерживал данный проект. Думаю, он ещё многим послужит в критический момент. И я говорю не только про "списать домашку". Счастливо оставаться, господин Alviko. Может, ещё увидимся.
Ваш, Глеб 'I3artle' Косырев}

1) В первом задании просто берёшь и переводишь, грубо говоря, всё числа 
от 0 до 25 с 10 системы, в 6 и смотришь какие числа начинаются на 4. 
Например   
  
 
Тут только три числа получилось.То есть ответ 4,40,41

2)Мы знаем что   Поскольку   то и  . 
Предположим что  . Просто переведём   в десятичное число, и получаем  
 ответ 8.
3) Третье задание точно такое как и 2, только сформулировано немножко по другому. Опять же   соответственно  .
Глядя на разницу между 65 и 311, можно предположить, что N как минимум в 2 раза меньше 8. Поэтому допустим N=4.
И проверяем  . То есть  . 
Это именно то, что нам нужно.
ответ  .
Надеюсь хоть чем то