A:1,2,3,4,5;B:-1,-2,-3,-4,-5;C:1,2,3,4,5.
program d;
var a, b, c: integer;
begin
for c:= 1 to 5 do
begin
a:= a + 1;
b:= b - 1;
writeln (a:3,' ',b:3,' ',c:3);
end;
end.
var a:string;
begin
Writeln('В каком году началась Великая Отечественная война?');
Readln(c);
if c = '1945' then Writeln ('Правильно!')
else Writeln('Вы ошиблись, Великая Отечественная война началась в 1945 году');
end.
8-битный цвет<span> (2^</span>8<span> = 256 цветов)</span>
Var
n, min: integer;
begin
readln(n);
min := n div 60;
writeln(min);
<span>end.</span>
Значение ячейки C1 будет равняться сумме значений ячеек A1 и B1.