Program p1;
uses crt;
var a,b,i:integer;
begin
for i:=15 to 25 do begin
a:=a+i*i;
b:=i*i;
writeln('Сумма:',a,'(квадрат числа :',i,'=',b,')');
end;
write(a);
end.
В первом варианте решения не объявлены используемые переменные, во втором варианте пропущено собственно вычисление периметра (инициализация переменной p), так что верным является только третий вариант.
(( 1 d ))
(( 2 a ))
(( 3 c ))
Картинка во вложении. Сначала рисуем по красным стрелкам, потом - по синим. Или наоборот.
активное действие - котёнок бежит, автомобиль едет
пассивное действие - котёнок спит, автомобиль стоит
___________________________________