Unnamed

program pisemne;
uses crt;
var
dzielna:string;
dzielnik:string;
wynik:string
reszta:integer;
krok:integer;
blad:integer;
dn,dk,dldk,dldn,w:integer;

begin
writeln('podaj dzielna i dzielnik');
readln(dzielna);
readln(dzielnik;

val(dzielnik,dk,blad);
val(dzielna,dn,blad);
if dz=0 then
        writeln('dzielnik musi byc rozny od 0!')
else
begin
        if dn<dk then
         begin
                writeln('dzielna jest mniejsza od dzielnika');
                writeln('twoj wynik to 0, r.',dk);
         end
        else
begin

dldn:=length(dzielna);
dldk:=length(dzielnik);


dziel:=copy(dzielna,dldk,1);
val(dziel,dz,blad);

for krok:=1 to dldn do
        begin
        if dz>=dk then
                begin
                w:=dz div dk;
                wynik[krok]:=w;
                odj:=w*dk;
                dz:=dz-odj;
                str(dz,dziel);
                dziel[length(dziel)+1]:=copy(dzielna,1,length(dziel)+1);
                end
        else
        reszta:=dziel;
           end;
writeln('to twoja dzielna: ',dn);
writeln('to twoj dzielnik: ',dk);
writeln('wynik z dzielenia :',wynik,'reszty :',reszta);
readln;
end.