**********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.