Var a,b,c,sum:integer;
begin
readln(a,b);
sum:=0; inc(a); c:=0;
repeat
sum:=sum+b;
inc(c);
until c=a;
sum:=sum-b;
writeln(sum);
end.
var
a,b,c:integer;
begin
readln(a); readln(b); readln(c);
if a mod 2 <> 0 then
Writeln('Первое нечетное')
else if a mod 2 = 0 then
Writeln('Первое четное');
if b mod 2 <> 0 then
Writeln('Второе нечетное')
else if b mod 2 = 0 then
Writeln('Второе четное');
if c mod 2 <> 0 then
Writeln('Третие нечетное')
else if c mod 2 = 0 then
Writeln('Третие четное');
end.
Var
day,a,mon,i,i1,max:integer;{объявляем переменные}
begin
readln(mon,day);{вводим месяц и день}
a:=day;
for i:=mon to 12 do begin
writeln;
write(i,': ');
case mon of{сколько дней в месяце}
9:max:=30;
10:max:=31;
11:max:=30;
12:max:=31;
end;
for i1:=a to max do begin
if a>max then break;
write(a,' ');
a:=a+7;
end;
a:=a-max;
end;
end.
помоему я уже делал эту задачу
Добрый день, это краткий формат вывода данных.