придумайте 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;beginread(N);if N>20 thenbegina:=20*5elsea:=0end;print(a)end.

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.