1)
var a: 1000..9999;
a1, a2, a3, a4: 1..9;//Цифры числа
begin
writeln('Введите четырехзначное число');
readln(a);
a4:= a mod 10; //Последняя цифра
a3:= (a mod 100) div 10;
a2:= (a mod 1000) div 100;
a1:=a div 1000;//Первая слева цифра
writeln('Произведение цифр числа: ',a1 * a2 * a3 * a4);
end.
2)
var
n: integer;
d, s: real;
a1: real;
begin
writeln('Введите число n');
readln(n);
writeln('Введите разность прогрессии');
readln(d);
writeln('Введите первый элемент');
readln(a1);
s:= ((2*a1+d*(n-1))/2)*n;
writeln('Номер: ', n-1, ' Значение: ', a1+d*(n-2));
writeln('Номер: ', n, ' Значение: ', a1+d*(n-1));
writeln('Номер: ', n+1, ' Значение: ', a1+d*n);
writeln('Сумма ', n, ' первых элементов равна: ',S);
end.
Может быть, я тебя не так понял. Значит max(y,x) означет что надо вычислить что больше 'x' или 'y'? соответственно и min.
var x,y,max,min: integer;
Begin
Writeln('введите x,y через пробел');
read(x,y);
if x-y>y then min:=y else min:=x-y;
{Если х-у>y тогда переменной min присваеваем значение y, в другом случае min присваеваем значение x-y(если "=" тоже, потому что значения будут одинаковы)}
If min>x then max:=min else max:=x; {примерно также}
Writeln(max);
end.
Если что - пиши в личку.
Удачи!