Program denuski;
var
a,N,c:integer;
begin
c:=1;
Write('Введите номер дня рождения ');
read(N);
for a:=2 to N do
c:=(c*2)+a;
write('Cумма подаренная на ');
write(N);
write(' день рождения ');
writeln(c,'$');
end.
1)Никогда не следует возвращаться туда, где был счастливым. - прид. места
2)Очнулся он, когда солнце стояло уже высоко. -прид .времени
3)Я вышел, чтобы освежиться--прид. цели
4)Дедушка пел так, как поет народ -- прид. образа действия
5)Если завтра будет такая же погода, то утром поеду в город -- прид. условия
# # Код на ruby 2.2.3p173
k = 0
begin
k = k + 1
k = k * 2
end until k > 10
p k
Ответ 14
var
x, y, s: integer;
begin
readln(x, y);
s := (2*x + y) * (x-y);
writeln(s);
end.
var x: integer;
begin
write('X=');
readln(x);
if x mod 2=0 then
writeln('X является чётным числом');
else
writeln('X является нечётным числом');
end;