// procedura

program Untitled;

uses CRT, DOS;
Procedure nazwa;
begin

gotoXY (25,5);
writeln('napis');

end;

Procedure nazwa2;
begin

gotoXY (25,15);
writeln('napis2');

end;

begin
nazwa;
writeln;
nazwa2;
readln;
end.


// procedura z wprowadzaniem zmiennych i dzialaniem

program Untitled;

uses CRT, DOS;

var
a,b:integer;

Procedure dodaj(x,y:integer);

var
wynik:integer;

begin
wynik:=a+b;
writeln(wynik);
end;
begin
writeln('wprowadz a');
readln(a);
writeln('wprowadz b');
readln(b);
writeln;
write('wynik = ');
dodaj(a,b);
readln;
end.


//funkcja

program Untitled;

uses CRT, DOS;

var
a,b:integer;



Function dodaj(a,b:integer):integer;
var
wynik:integer;
begin
writeln('a:');
readln(a);
writeln('b:');
readln(b);
dodaj:=a+b
end;
begin
write(dodaj(a,b));
readln;



// randomowe liczby z warunkiem + pelta

program Untitled;

uses CRT, DOS;

var
a,b,c,d:integer;
p:char;

Begin
REPEAT
Randomize;

a:=random(100);
b:=random(100);
c:=a*b ;

writeln('liczba a: ',a,' liczba b: ',b);
writeln('podaj wynik');
readln(d);

IF c=d then
writeln('wynik dobry')
else
writeln('naucz sie liczyc');
writeln;
writeln('czy chcesz jeszcze zgadywac? t lub n');
readln(p);



UNTIL p<>'t';
end.