придумайте 2 задачки на циклы и на ветвление на языке паскаль

можно пожалуйста задачу на ветвление условие и решение (средней трудности)

дополнил

можно задачку на цикл пожалуйста

1. отыскать сумму чисел с 1 до n

Program ffff;

Uses crt;

var n,i,s:integer;

begin

writeln ('Кол-во цифр');

readln (n);

for i:=1 to n do

s:=s+i;

writeln (s);

end.

Если сейчас четное число месяца , то я беру с собой на 10 рублей больше чем обычно

Program ffff;

Uses crt;

var n,i:integer;

begin

writeln ('Сколько я беру обычно');

readln (n);

writeln ('Какое сейчас число');

readln (i);

if i mod 2 = 0

then n:=n+10;

writeln (n,' рублей я сейчас беру');

end.

Read(a);
while agt;0 begin a:=a-1 end;

read(a);
while alt;=10 begin a:=a+3 end;

read(a);
if agt;4 begin write('+') end;

read(a);
if a!=4 begin write('-') end;

Артём устроился на работу. Его задачка собирать ягоды. Ему выплачивают по 5 у.е. за ягоду, но только если ягод больше 20. Сколько заплатят Артёму, если он собрал N ягод?
var N,a:integer;
begin
read(N);
if Ngt;20 then
begin
a:=20*5
else
a:=0
end;
print(a)
end.