Задача в Pascal abc.
Cоздать программу и подсчитать количество двузначных чисел, которые кратны 3

program z1;uses crt;var k,i:integer;begink:=0;for i:=10 to 99 doif (i mod 3=0) thenk:=k+1;writeln('Количество: ',k)end.