Найти все целые двузначные числа, удовлетворяющие условию: остаток от

деления на 5 равен 3.
Цикл for, PascalABC

var i: integer;

begin

   for i:=10 to 99 do

       if i mod 5 = 3 then

           writeln(i);

end.

uses crt; var

  v,r,h: real; begin  write('r='); readln(r);   write('h='); readln(h);   v: =pi*sqr(r)*h;   write('v=',v); end.

из пяти литровой переливаем в трех литровую получаем два литра сливаем их в ведро повтаряем процедуру получаем в ведре четыре литра