Вениамин – профессиональный строитель. Помимо тщательного контроля при строительстве он также следит за качеством материалов. Вениамин решил сделать деревянный забор, поэтому он приобрёл доску длиной L сантиметров. Однако для строительства забора необходимы доски длиной ровно D сантиметров. Разумеется доску можно распилить на несколько частей, но из-за сжатых сроков Вениамин успеет распилить её не более, чем на K частей.
Ему стало интересно, какое максимальное количество досок длины D ему удастся получить? Напишите программу, которая по числам L, D, K вычисляет это количество.
Формат входных данных
В первой строке вводится натуральное число L (1 ≤ L ≤ 100)— длина исходной доски.
Во второй строке вводится натуральное число D (1 ≤ D ≤ 100)— требуемая длина досок.
В третьей строке вводится натуральное число K (2 ≤ K ≤ 100)— максимальное количество частей, на которое можно распилить доску.
Формат результата
Выведите единственное целое число – максимальное количество досок длины D, которое удастся получить.
Вот крч только это убого насамом деле,просто я забыо как через цикл делать но если ты вспомнишь,то красавчик,и да там определяет только большие А и только английские )
program q;
var
a:string;
t,b:integer;
begin
readln(a);
b:=0;
if a[1]= 'A' then t:=b+1
else t:=0;
if a[2]= 'A' then t:=t+1
else t:=t;
if a[3]= 'A' then t:=t+1
else t:=t;
if a[4]= 'A' then t:=t+1
else t:=t;
if a[5]= 'A' then t:=t+1
else t:=t;
if a[6]= 'A' then t:=t+1
else t:=t;
if a[7]= 'A' then t:=t+1
else t:=t;
if a[8]= 'A' then t:=t+1
else t:=t;
if a[9]= 'A' then t:=t+1
else t:=t;
if a[10]= 'A' then t:=t+1
else t:=t;
if a[11]= 'A' then t:=t+1
else t:=t;
if a[12]= 'A' then t:=t+1
else t:=t;
write(t);
end.