В каком из условных операторов допущена ошибка?

а) if (a>b) and (b>0) then c:=a+b else c:=a-b;

б) if (a1 > a2) then max:=a1 else max:=a2;

в) if (B = 0) then Writeln('Деление на нуль невозможно');

г) if (a < b) then min:=a; else min:=b;

карандаш - графит; ископаемое, состоящее из угля и желез это же вещество, вставленное пруточками в деревянную трубочку, для черченья и рисованья.

var

a: integer;

begin

readln(n);

writeln('сумма цифр числа ',a,' равна', a div 100+(a mod 100) div 10 +a mod 10);

end.

var

a: integer;

begin

readln(n);

writeln((a mod 10)*100+((a mod 100) div 10)*10 +a div 100);

end.

1)

германия берлин

греция афины

испания мадрид

польша варшава

франция париж

2)

греция афины

германия берлин

польша варшава

испания мадрид

франция париж

var 

i,n: integer;

begin

readln(n);

for i: =1 to n-1 do write(i*i: 5);

end.