запишите полные тексты двух программ и выполните их на компьютере

первая программа:
K:=0;
For i:=1 to 10 do
If a [i]> 50 then k:=k+1;
Write (‘k=’, k)
вторая программа

s:=0;
for i:=1 to 10 do
if (a [i]>50) and (a [i]<60) then s:=s+a [i];
write ('s=', s)

запишите полные тексты двух программ и выполните их на компьютере