Придумайте 2 на циклы и на ветвление на языке паскаль понятные 8 класснику условие+решение

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

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

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

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

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

1. найти сумму чисел с 1 до n

Program ;

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 ;

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.