Pascal ABC
Var A,B:integer;
Begin
Write('A = ');Read(A);
Write('B = ');Read(B);
WriteLn(A,' + ',B,' = ',A+B);
WriteLn(A,' - ',B,' = ',A-B);
WriteLn(A,' * ',B,' = ',A*B);
WriteLn(A,' : ',B,' = ',A/B);
End.
Андрей - первый, Сергей - второй, Борис - третьем, Володя - четвертым. Хм, может неправильно хд
Var
i:Integer;
A:Array[1..10] of Integer;
begin
Randomize;
for i:=1 to 10 do
A[ i ]:=Random(100);
end.
Только не понял - ввод с клавиатуры или заполнить случайными числами?