ПРОШУ ВАС посчитайте 100 поинтов СПАМ-БАН

Первое:

program A;

var a, b, c, s:Real;

begin

Write('Vvedite a ');ReadLn(a);

Write('Vvedite b ');ReadLn(b);

Write('Vvedite c ');ReadLn(c);

s:=(a+b+c)/3;

WriteLn('Srednee arifmeticheskoe',s,)

end.

Второе:

program A;

var a, b:Real ;

begin

Write('Vvedite a ');ReadLn(a);

Write('Vvedite b ');ReadLn(b);

if (a>b) then WriteLn ('Chislo a ravnoe ',a,' naibolshoe') else WriteLn ('Chislo b ravnoe ',b,' naibolshee')

end.

Третье:

program A;

var a, b, s:Real;

begin

Write('Vvedite a ');ReadLn(a);

Write('Vvedite b ');ReadLn(b);

s:=a+b;

if (s/2) then WriteLn ('Smma chisel chetna') else WriteLn ('Summa chisel ne chetna')

end

всё написано на паскале, не благодари)