<em>Это устройство - дисковод.</em>
I, j: integer;
a: array [1..100, 1..100] of integer;
begin
readln(a[1][1], a[1][2]);
for i := 3 to 30 do
a[1][i] := a[1][i - 1] + a[1][i -2];
for i := 2 to 30 do
for j := 1 to 30 do
begin
if (j > 2) then
a[i][j] := a[i][j - 1] + a[i][j - 2]
else
if (j = 2) then
a[i][j] := a[i][1] + a[i - 1][30]
else
a[i][j] := a[i - 1][30] + a[i - 1][29];
end;
for i := 1 to 30 do
begin
for j := 1 to 30 do
write(a[i][j],' ')
writeln;
end;
end.
Вот, сорри если что пишу без компилятора
Ты разве уже это не просил? Внутри кода замени все вопросы и ответы на свои. Затем скомпилируй если надо
Program z;
Var N,k:integer;
Begin
k:=0;
If N<5 then k:=k+1;writeln(k);
End.