program cistern;
var v, r, h, nom, bestnom: integer;
minmaterial, material, vbest, vcurr: real;

begin
bestnom:= 0;
nom:= 0;

repeat
writeln ('Введите необх объём цистерны');
readln (v);
if v<=0 then writeln ('объём должен быть >0');
until v>0;

это начало первой программы