Pascal Programming Exercises

program cikl1;
var
i,n:integer;
begin
writeln(' Введите количество повторений (одно целое
число)');
readln(n);
for i:=1 to n do
begin
writeln('****************************');
writeln('Терпение и труд всё перетрут');
writeln('****************************');
end;
end.
program step;
var
i,x,a,p:integer;
begin
p:=1;
readln(x,a);
for i:=1 to a do
p:=p*x;
writeln(p);
end.
program primer;
var i,k,n:integer;
begin
writeln('Введите количество множителей');
readln(n);
writeln('Введите число');
readln(k);
for i:=1 to n do
writeln(k:3,'*':3,i:3,'=':3,k*i:3);
end.
program primer;
var i,n,s:integer;
begin
writeln('Введите количество чисел');
readln(n);
s:=0;
for i:=1 to n do
s:=s+i;
writeln('Сумма= ',s);
end.
program primer;
var i,n,s:integer;
begin
writeln('Введите количество чисел');
readln(n);
s:=0;
for i:=1 to n do
if i mod 2=1 then
begin
s:=s+i;
writeln('Сумма= ',s);
end;
end.
program cikl1;
var
x,s,i,n:integer;
begin
writeln(' Введите количество повторений (одно целое
число)');
readln(n);
s:=0;
for i:=1 to n do
begin
writeln('Введите число');
readln(x);
s:=s+x;
end;
writeln('Cумма',s);
end.
Program qq;
var s,i,n,k,x:integer;
begin
write('Введите n:' );
readln(n);
s:=0;
k:=0;
for i:=1 to n do
begin
write('Введите x:' );
readln(x);
if x mod 2=1 then
begin
s:=s+x;
k:=k+1;
end;
end;
writeln;
writeln('Сумма нечётных чисел равна:',s);
writeln('Количество нечётных чисел равно:',k);
readln;
end.