Смотря с чего начинается с 0 или 1 массив , я просто решил написать пример программы , тут сам вводишь 10 чисел
var
i , k, n:integer;
a: array [1..10] of integer;
begin
for i:=1 to 10 do readln(a[i]);k:=a[1]*a[2]*a[3];
n:=a[10]*a[9]*a[8];
writeln('произведение первых трех чисел= ',k);
<span>writeln('произведение последних трёх чисел= ', n);</span>
end.
Вид семья хищных животных
По протоколу ftp.File Transfer (букв. « передачи файлов») или просто — сетевой , передачи файлов в компьютерных сетях.
Program znanija;
var s,s1,r:string;
begin
Readln(s);
Readln(s1);
r:=s + s1;
writeln(r);
<span>end.</span>
У меня на FireFox'e работает (на других не проверял):
<html>
<head>
<title>Alphaeus</title>
</head>
<body>
<table width="800" height="160" cellspacing="2" cellpadding="0" border="0" bgcolor="#ff6600">
<tr bgcolor="#ffffff">
<td width="160" height="20" rowspan="2"> 1</td>
<td width="100" height="20" colspan="2"> 2</td>
<td width="160" height="20"> 3</td>
<td width="160" height="20" rowspan="7"> 4</td>
</tr>
<tr bgcolor="#ffffff">
<td width="100" height="20" rowspan="5"> 5</td>
<td width="100" height="20" rowspan="5"> 6</td>
<td width="160" height="20" rowspan="7"> 7</td>
</tr>
<tr bgcolor="#ffffff">
<td width="160" height="20" rowspan="4"> 8</td>
</tr>
<tr>
</tr>
<tr bgcolor="#ffffff">
</tr>
<tr bgcolor="#ffffff">
</tr>
<tr bgcolor="#ffffff">
<td width="360" height="20" rowspan="2" colspan="3"> 9</td>
</tr>
<tr bgcolor="#ffffff">
<td width="160" height="20"> 10</td>
</tr>
</table>
</html>