Ну, если я правильно поняла, то вот так (из интернета)
С++
все функции не защищенные, никаких проверок нету
"на коленке" протестировал, и на первый взгляд все работает как нужно<span />
Var
i:integer;
a,c:array[1..4]of integer;
b:array[1..2]of integer;
begin
write('Массив а: ');
for i:=1 to 4 do
begin
a[i]:=random(10);
if a[i]>b[1] then b[1]:=a[i];
c[i]:=random(10);
if c[i]>b[2] then b[2]:=c[i];
write(a[i],' ');
end;
writeln;
write('Массив c: ');
for i:=1 to 4 do write(c[i],' ');
writeln;
write('Массив b: ');
for i:=1 to 2 do write(b[i],' ');
<span>end.</span>
Ну,например,Есенин.
program Chetverostishie;
begin
writeln('И ничто души не потревожит,');
writeln('И ничто ее не бросит в дрожь, —');
writeln('Кто любил, уж тот любить не может,');
writeln('Кто сгорел, того не подожжешь.');
writeln('С.А.Есенин');
end.<span>
</span>