Не уверен, но надеюсь правильно)
var a,b,Cmod,Cdiv:integer;
begin
readln(a);
readln(b);
Cmod:=a;
Cdiv:=0;
repeatCmod:=Cmod-b;
inc(Cdiv);
until Cmod<b;
writeln(Cdiv,' ',Cmod);
readln;
<span>end.</span>
Пишем от 0 до 6, потом добавляем +1 в старший разряд...
0 1 2 3 4 5 6
10 11 12 13 14 15 16
20
А для натурального ряда отсчет идет с 1, поэтому
1 2 3 4 5 6
10 11 12 13 14 15 16
20 21
Var r,s,p:real;
begin
write('R=');
readln(r);
s:=Pi*sqr(r);
p:=2*Pi*r;
writeln('Площадь: ',s);
writeln('Периметр: ',p)
<span>end.</span>
F = (p ⇒ q) ⇒ (q ⇒ p)
Таблица истинности приведена на фото
P.S эту операцию лучше называть не "следствие", а импликация.