S:=0; k:=0;
while k<3 do
Begin
k:=k+1;
S:=S+k;
End:​

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку