Var integer begin while. Integer пример. x-int(input(0)) if x>. while x>0 do begin. readln writeln while do.