N2
var i,k:integer;
A: array [0..6] of integer;
begin
for i:=0 to 6 do
begin
readln (A[i]);
end;
for i:=0 to 6 do
writeln( A[i]);
end.
Понятия не имею что за постусловие , но вот лучший вариант
var i:bite;
begin
for i:=3 to 25 do
if i mod 2<>0 then writeln(o);
end.
<span>(2х2=6 или 3х3=10) и (2х2=4 или 3х3=9) </span>⇒
(Ложь или Ложь) и (Истина или Истина) ⇒ Ложь и Истина ⇒ Ложь
В приложениях находятся два варианта решений. Постановка задачи позволяет решить ее без использования массивов. Такой код находится во втором приложении.