program zadanie1 integer::deltaV,V real::beta,deltaT beta=0.001 deltaT=14 print*,"zadaj krok tabulky /v celych cislach/ pre zmenu objemu: " read*,deltaV print*,"objem /l/ zmena objemu/l/" print*,"________________________________" do V=10,100,deltaV zmenaV=V*beta*deltaT print*,V," ",zmenaV end do pause end program zadanie1 **************************************************************************************