Аргумент неверный
Excel не будет считать и выдаст подобное "#ЗНАЧ!"
program z1;
var a,b,c:real;
begin
writeln('Введите a');
readln(a);
writeln('Введите b');
readln(b);
writeln('Введите c');
readln(c);
if (a>b) and (a>c) then writeln('a - наибольшее число') else
if (b>a) and (b>c) then writeln('b - наибольшее число') else
writeln('c - наибольшее число');
if (a<b) and (a<c) then writeln ('a-наименьшее число') else
if (b<a) and (b<c) then writeln ('b-наименьшее число') else
writeln ('c-наименьшее число');
if ((a>b) and (a < c)) or ((a < b) and (a > c)) then
writeln('a-среднее число')
else
if ((b > a) and (b < c)) or ((b < a) and (b > c)) then
writeln('b-среднее число')
else
writeln('c-среднее число');
end.
If then,тогда 1 оператор
Если if then begin <условие1>; <условие2>; end;
Тогда можно писать бесконечное кол-во операторов
Program enot;
Var a: array [1..2] of integer;
i:integer;
begin
for i:= 1 to 2 do
begin
a[i]:=random(3);
writeln(a[i]);
end;
<span>end.</span>
var b:integer;
begin
readln(b);
If (b div 1000)mod 2=0 then writeln('1 цифра четная')
else writeln('1 цифра нечетная');
If ((b div 100) mod 10)mod 2=0 then writeln('2 цифра четная')
else writeln('2 цифра нечетная');
If ((b div 10)mod 10)mod 2=0 then writeln('3 цифра четная')else writeln('3 цифра нечетная');
If (b mod 100)mod 2=0 then writeln('4 цифра четная')
else writeln('4 цифра нечетная');
<span>end.</span>