Var n,i:integer;
begin
n:=0;
for i:=1 to 4 do
n:=n+i;
writeln(n);
readln;
<span>end.</span>
Var
n:integer;
begin
readln(n);
n:=n mod 7;
if n=1 then
writeln('Понедельник');
if n=2 then
writeln('Вторник');
if n=3 then
writeln('Среда');
if n=4 then
writeln('Четверг');
if n=5 then
writeln('Пятница');
if n=6 then
writeln('Суббота');
if n=7 then
writeln('Восресенье');
end.
Var a:real;k2,k5:integer;
begin
k2:=0; k5:=0;
read(a);
while a<>0 do begin
if a=2 then k2:=k2+1
else if a=5 then k5:=k5+1;
read(a) end;
write(k2,' ',k5)
<span>end.</span>
8:4=2 сторона маленького квадрата
Значит сторона большого квадрата 2+2=4
Перимерт большого равен 4+4+4+4=16 см
У лукоморья дуб зеленый
Златая цепь на дубе том
И днем и ночью кот ученый
Все ходит по цепи кругом
Идет НАПРАВО песнь заводит
НАЛЕВО сказку говорит
и т.д.