Program gt;
var a,b,c,d,min:integer;
begin
read(a,b,c,d);
min:=a;
if(b<min)then min:=b;
if(c<min)then min:=c;
if(d<min)then min:=d;
writeln(min);
end.
Если там вещественные числа то в var-е вместо integer напиши rel
4 в 10 сс равно 4 в 16 сс
Чтобы 25 перевести в 16 сс раздели столбиком 25 на 16, то же самое и с числом 123
Readln(x);
//X^Y = exp(ln(X) * Y) - возведение в степень
ctg1:=cos(x)/sin(x);
y:=sqrt(sqrt((x*x+3)/(x-1))-exp(ln(ctg1*5)*3);
В файле можно сделать изменения(фамилии, оценки), а а столбце С записана формула, рассчитывающая среднее значение оценок