Štai ir mano versija pirmos užduoties: program UzduotisNr1; var coliai, pedos, jardai : real; metras : integer; function MetraiToColiai(metrai: real): real; const colis = 2.54; begin MetraiToColiai := (metrai * 100) / colis; end; begin for metras := 1 to 5 do begin Coliai := MetraiToColiai(metras); Pedos := Coliai / 12; Jardai := Pedos / 3; writeln('Metrai: ', metras, ' - Coliai: ', coliai:2:2, ' - Pëdos: ', pedos:2:2, ' - Jardai: ', jardai:2:2); end; Readln; end. O štai ir antra užduotis: program UzduotisNr2; var n, //ukininkai k, //ciklui kinta