Дано четырехзначное число.найти сумму квадратов второй и третьей цифры

Program zadanie;   var a,b,c,d,s: real; begin   writeln('введите  значение четырехзначного числа через запятую(пример: 1 3 5 6)');   readln(a,b,c,d);   s: =sqr(b)+sqr(c);   writeln('сумма квадратов второй и третьей цифры равна=',s) end.

А) цикл  for i: =0 to 5 do s: =s+1; выполнится 6 раз. переменная s будет равна 6,так как действие s: =s+1 будет увеличивать значение переменной s на 1 с каждым шагом цикла, а значение переменной i будет равно 5, так как for i: =0 to 5 do означает,что цикл будет выполняться, пока значение i, с начала цикла равное 0, не достигнет значения 5.s=6 , i = 5.б) в данном случае цикл не выполнится ни разу, так как значение n меньше значения i и используется команда to :   for i: =2 to n do.команда to используется для цикла,значение которого идет вверх. в данном случае, чтобы алгоритм выполнился хотя бы раз, нужно было использовать команду downto, которая работает в сторону уменьшения.так как алгоритм не будет выполнен, то и значения переменных не изменятся: s=1, i= 2.

program ncdkj;

uses crt;

var a,b,p,d,sd: integer;

begin

clrscr;

a: =10;

b: =10;

d: =1;

sd: =1;

p: =10*0,1;

repeat 

a: =a+p;

d: =d+1;

until a> 20;

repeat 

b: =b+p;

sd: =sd+1;

s: =s+b;

until s> 100;

case sd mod 7 of

0: writeln('сумма 100 км в 7');

1: writeln('сумма 100 км в 1');

2: writeln('сумма 100 км в 2'); и так до шести

case d mod 7 of

0: writeln('20 км в 7');

1: writeln('20 км в 1');

2: writeln('20 км в 2'); и так до шести

readln;

end.

надеюсь второе   правильно понял, вроде должно работать