wczytac liczby z klawiatury a i b i podac ich iloraz

uses crt;
var a,f,m:real;
begin
clrscr;
write('podaj wartosc F: ');
readln(f);
write('podaj wartosc m: ');
readln(m);
a:=f/m;
if f<=0 then writeln('Nie wstawia sie 0 w liczniku')
else
if m<=0 then writeln('Nie wstawia sie 0 w mianowniku')
else writeln('wyliczyles wartosc a=',a:2:2);
readln;
end.


wczytac z klawiatury date swojego urodzenia
var
d,m,r:Integer;
begin
writeln('podaj date swojego urodzenia dzien miesiac rok');
readln(d,m,r);
writeln('twoja data urodzenia to: ',d'',m'',r);
readln;
end.



sprawdzic czy wczytana liczba jest liczba pazysta czy nieparzysta.


var x:integer;
begin
write('Podaj liczbe do sprawdznenia :');
readln(x);
if x mod 2 =0 then Writeln('Liczba ',x,' jest parzysta')
else Writeln('Liczba ',x,' jest nieparzysta');
readln;
end.


2łancuchy znaków z klawiatury przekazujemy do procedury o nazwie łaczenie której celem jest połaczenie ich
ze soba połaczone space barem i wyświetli na ekranie połaonczone ,

procedure lanczenie(l1,l2:string);
begin
writeln(#10,l1+' '+l2);
end;

var
l11,l22:string;
begin
writeln('podaj pierwszy ciag znakow: ');
readln(l11);
writeln('podaj drugi ciag znakow: ');
readln(l22);
lanczenie(l11,l22);
readln;
end.

program która dodaje twie liczby podaje sumę w FUNcionS

program funkcja;
var
wynik:integer;
function dodawanie (a,b:integer):integer;
begin
wynik:=a+b;
end;
begin
wynik:=dodawanie(10,20);
writeln(dodawanie(10,20));
readln;
end.


zapis do plików :D

uses crt;
var
z:text;
begin
assign (z,'C:\FPC\2.4.0\bin\i386-win32\A.txt');{twozenie i zapisanie do pliku}
rewrite(z);{czyści plik do zapisu}
writeln(z,'Ala ma kota');{dopis do pliku}
close(z);{zamykanie pliku }
readln;
end.


//////////
uses crt;
var
z:text
c:char
begin
assign(z,'C:\FPC\2.4.0\bin\i386-win32\A.txt');
reset(z);{wskazuje na znak pobierany z pliku }
read(z,c);{czytanie pliku jednego znaku}
write(c);
close(z);{zamyka plik}
delay(2000); {wyświtlenie przez 2s}
end.