**********ZADANIE 1********** 
 
program nazwa; 
uses crt; 
var 
i:byte; 
begin 
clrscr; 
for i:=1 to 10 do 
write('*'); 
readln; 
end. 
 
**********ZADANIE 2********** 
 
program nazwa; 
uses crt; 
var 
i:byte; 
begin 
clrscr; 
for i:=1 to 15 do 
writeln('*'); 
readln; 
end. 
 
 
**********ZADANIE 3********** 
 
program nazwa; 
uses crt; 
var 
i:byte; 
begin 
clrscr; 
for i:=1 to 12 do 
begin 
writeln('*'); 
delay(1000); 
end; 
readln; 
end. 
 
**********ZADANIE 4********** 
 
program nazwa; 
uses crt; 
var 
i:byte; 
begin 
clrscr; 
for i:=1 to 15 do 
begin 
textcolor(i); 
writeln('Kamil'); 

end; 
readln; 
end. 
 
 
**********ZADANIE 5********** 
 
program nazwa; 
uses crt; 
var 
i:byte; 
imie:string; 
begin 
write('Jak masz na imię?'); readln(imie); 
clrscr; 
for i:=1 to 10 do 
begin 
writeln(imie); 
end; 
readln; 
end. 
 
**********ZADANIE 6********** 
 
program nazwa; 
uses crt; 
var 
i:byte; 
max:real; 
imie:string; 
begin 
write('Jak masz na imię?'); readln(imie); 
write('Ile razy mam twoje imie wyświetlid?); readln(max); 
clrscr; 
for i:=1 to max do 
begin 
writeln(imie); 
end; 
readln; 
end. 
 
**********ZADANIE 7********** 
 
program nazwa; 
uses crt; 
var 
i:byte; 
begin 
clrscr; 
for i:=1 to 10 do 
begin 
writeln('To jest linijka nr', i); 
end; 
readln; 
end.   
 

**********ZADANIE 8********** 
 
program nazwa; 
uses crt; 
var 
i:byte; 
begin 
clrscr; 
for i:=20 to 50 do 
begin 
writeln('To jest linijka nr', i); 
end; 
readln; 
end.   
  
**********ZADANIE 9********** 
 
program nazwa; 
uses crt; 
var 
i:byte; 
begin 
clrscr; 
for i:=50 downto 20 do 
begin 
writeln('To jest linijka nr', i); 
end; 
readln; 
end.   
  
 
**********ZADANIE 10********** 
 
program nazwa; 
uses crt; 
var 
i:byte; 
begin 
clrscr; 
for i:=10 downto 1 do 
begin 
writeln('Pozostało sekund', i); 
delay(1000); 
end; 
readln; 
end.   
   
**********ZADANIE 11********** 
 
program nazwa; 
uses crt; 
var 
i:real; 
begin 
clrscr; 
write('Podaj ile liczb mam wyświetlid'); readln(i); 

for i:=1 to 1 do 
begin 
writeln(i ', '); 
end; 
readln; 
end.   
 
**********ZADANIE 12********** 
 
program nazwa; 
uses crt; 
var 
i,max,suma:real; 
begin 
clrscr; 
write('Podaj ile licz mam zsumowad'); readln(max); 
for i:=1 to max do 
begin 
suma:=suma+i; 
writeln(suma , '+', i , '=', suma2); 
suma2:=suma; 
end; 
readln; 
end.   
 
**********ZADANIE 13********** 
 
program nazwa; 
uses crt; 
var 
i,max,suma:real; 
begin 
clrscr; 
write('Podaj ile licz mam zsumowad'); readln(max); 
for i:=1 to max do 
begin 
suma:=suma*i; 
writeln(suma , '+', i , '=', suma2); 
suma2:=suma; 
end; 
readln; 
end.   
 
 
**********ZADANIE  14********** 
 
program nazwa; 
uses crt; 
var 
i:byte; 
n,x:real; 
begin 
 clrscr; 
begin 
writeln(‘Od jakiej liczby mam zacząd?’); readln(n); 
writeln(‘Ile liczb mam sprawdzid?’); readln(x) 

for i:=n to x do 
begin 
if i mod 2=0 then 
write(n, ‘ , ’); 
end; 
readln; 
end. 
 
 
**********ZADANIE  15********** 
 
program nazwa; 
uses crt; 
var 
i:byte; 
n,x,srednia:real; 
suma:integer; 
begin 
 clrscr; 
begin 
writeln(‘Od jakiej liczby mam zacząd?’); readln(n); 
writeln(‘Ile liczb mam sprawdzid?’); readln(x) 
for i:=n to x do 
begin 
if i mod 2=1 then 
suma:=suma+i; 
end; 
srednia:=suma/x; 
write(‘Średnia liczb nieparzystych wynosi:’, srednia); 
readln; 
end. 
 
 
**********ZADANIE  16********** 
 
program nazwa; 
uses crt; 
var 
imie:string; 
i:byte; 
begin 
imie:=’Kamil’; 
for i:=1 to length(imie) do 
begin 
writeln(imie[i]); 
end; 
readln; 
end. 
 
 
**********ZADANIE  17********** 
 
program nazwa; 
uses crt; 
var 
imie:string; 

i:byte; 
begin 
write('Podaj swoje imię:'); 
readln(imie); 
for i:=1 to length(imie) do 
begin 
textcolor(i); 
writeln(imie[i]); 
end; 
readln; 
end. 
**********ZADANIE  18********** 
 
program nazwa; 
uses crt; 
var 
imie:string; 
x:integer; 
begin 
write('Podaj swoje imie:'); 
readln(imie); 
for x:=length(imie) downto 1 do 
begin 
write(imie[x]); 
end; 
readln; 
end. 
 
**********ZADANIE  19********** 
 
program nazwa; 
uses crt; 
var 
i,suma:real; 
liczba:integer; 
begin 
clrscr; 
write(‘Jakie chcesz sprawdzid wielokrotnosci’); readln(liczba); 
for i:=1 to 10 do 
begin 
suma:=suma+liczba; 
write(suma, ‘, ’); 
end; 
readln; 
end.   
 
 
program nazwa; 
uses crt; 
var 
i,max,suma:real; 
liczba:integer; 
begin 
clrscr; 
write(‘Jakie chcesz sprawdzid wielokrotnosci’); readln(liczba); 
write(‘Ile razy mam wyswietlic?’); readln(max); 

for i:=1 to max do 
begin 
suma:=suma+liczba; 
write(suma, ‘, ’); 
end; 
readln; 
end.   
 
 
**********ZADANIE 20********** 
 
program nazwa; 
uses crt; 
var 
i,liczba:byte; 
suma:integer; 
razem:real; 
clrscr; 
begin 
for i:=1 to 10 do 
begin 
write(‘Podaj liczbe nr’, i); readln(liczba); 
suma:=suma+liczba; 
end; 
i:=10; 
razem:=suma/i; 
write(‘Średnia Twoich liczb wynosi:’, razem); 
end. 
 
**********ZADANIE 21********** 
 
program nazwa; 
uses crt; 
var 
i,liczba:byte; 
suma:integer; 
razem:real; 
clrscr; 
begin 
write(‘Ile potrzebujesz liczb do wyśredniowania?:’); readln(max); 
for i:=1 to max do 
begin 
write(‘Podaj liczbe nr’, i); readln(liczba); 
suma:=suma+liczba; 
end; 
razem:=suma/max; 
write(‘Średnia Twoich liczb wynosi:’, razem); 
end. 
 
 
**********ZADANIE 22********** 
 
program nazwa; 
uses crt; 
var  
a, b,i,prawidlowe: byte; 

suma,suma_usera:integer; 
clrscr; 
begin 
for i:=1 to 10 do 
begin 
randomize; 
a:=1+random(10); 
b:=1+random(10); 
textcolor(white); 
write('Pytanie nr ' , i , '. Ile wynosi ', a , ' razy ' , b , ': ');readln(suma_usera); 
suma:=a*b; 
if suma=suma_usera then 
begin 
textcolor(green); 
write('Prawidlowa odpowiedz!'); 
writeln('=============='); 
prawidlowa:=prawidlowa+1; 
end; 
if suma>suma_usera then 
begin 
textcolor(red); 
write('Zla odpowiedz!'); 
writeln('=============='); 
end; 
if suma<suma_usera then 
begin 
textcolor(red); 
write('Zla odpowiedz!'); 
writeln('=============='); 
end; 
end; 
if prawidlowe>5 then 
begin 
textcolor(green); 
write('Gratulacje! Udzieliłeś ' , prawidlowe , ' prawidłowych odpowiedzi!'); 
end; 
if prawidlowe<=5 then 
textcolor(red); 
write('Niestety! Udzieliłeś tylko ' , prawidlowe , ' prawidłowych odpowiedzi!'); 
readln; 
end. 
 
**********ZADANIE 23********** 
 
program nazwa; 
uses crt; 
var 
liczby:array[1..10] of integer; 
i:byte 
begin  
for i:=1 to 10 do 
write(‘Podaj liczbę’, i); readln(liczby*i+); 
end; 
write(‘Podałeś następujące liczby: ’); 
for i:=1 to 10 do 
write(liczby*i+ , ‘, ‘); 

end; 
readln. 
end. 
 
**********ZADANIE 24********** 
 
program nazwa; 
uses crt; 
var 
liczby:array[1..10] of integer; 
i,n:byte 
clrscr; 
begin  
for i:=1 to 10 do 
begin 
randomize; 
n:=1+random(5); 
n:=liczby[i]; 
end; 
writeln(‘Losowo wybrane liczby to: ’);  
for i:=1 to 10 do 
write(liczby*i+ , ‘ ‘); 
end; 
readln; 
end. 
 
**********ZADANIE 25********** 
 
program nazwa; 
uses crt; 
var 
liczby: array[1..10] of integer; 
i,najwieksza_liczba,suma,najwieksza_liczba_ktora,mniej_niz_zero,suma_nieparzystych_liczb:byte; 
srednia:real; 
begin 
for i:=1 to 10 do 
 begin 
  writeln('Podaj ',i,' liczbę.'); readln(liczby*i+); 
  suma:=suma+liczby[i]; 
  if i=1 then 
  begin 
   najwieksza_liczba:=liczby[i]; 
  end; 
  if najwieksza_liczba<liczby[i] then 
  begin 
   najwieksza_liczba:=liczby[i]; 
   najwieksza_liczba_ktora:=i; 
  end; 
  if liczby[i]<0 then 
  begin 
   mniej_niz_zero:=mniej_niz_zero+1; 
  end; 
  if liczby[i] mod 2=1 then 
  begin 
   suma_nieparzystych_liczb:=suma_nieparzystych_liczb+liczby[i]; 
  end; 

 
 end; 
 srednia:=suma/10; 
clrscr; 
writeln('Podano ',mniej_niz_zero,' liczb mniejszych od 0.'); 
writeln('Średnia wszystkich liczb wynosi ',srednia:0:2,'.'); 
writeln('Suma liczb nieparzystych wynosi ',suma_nieparzystych_liczb,'.'); 
writeln('Najwieksza liczba to ',najwieksza_liczba,' i zostala podana jako ',najwieksza_liczba_ktora); 
readln; 
end.