var
menu, D, S: integer;
begin
Writeln('Введите значение меню');
Writeln('1 - известна большая диагональ');
Writeln('2 - известна меньшая диагональ');
Writeln('3 - Диагонали не известны');
Readln(Menu);
case menu of
1:
begin
Writeln('Введите площадь и значение большей диагонали');
Readln(s, d);
Writeln('Длина меньше диагонали равна: ', (2 * s) / d)
end;
2:
begin
Writeln('Введите площадь и значение меньшей диагонали');
Read(s, d);
Writeln('Длина меньше диагонали равна: ', (2 * s) / d);
end;
3:
Writeln('К сожалению волшебства не будет');
end;
end.
s=15; i=-1
Объяснение:Присваиваем переменной s значение 0, а переменной i - 5:
s:=0; i:=5;
Создаём цикл, который будет выполнятся пока будет выполнятся условие i>=0 , то есть пока i будет меньше или равна нулю, будут выполнятся команды, записанные между begin и end :
while i>=0 do
begin
Присваиваем переменной s новое значение: текущее s + i.
s:=s+i;
Присваиваем переменной i новое значение: текущее значение i - 1.
i:=i-1
Теперь i стала на 1 меньше, изначально она равнялась пяти, но с каждым проходом цикла она уменьшается на 1, то есть через 6 кругов она станет меньше 0 и цикл завершится. За эти 6 кругов будет увеличиваться s, на i, то есть за весь цикл она увеличится на 5+4+3+2+1+0, то есть 15. изначально s=0, поэтому по завершении программы она станет равна 0+15=15, а i -1.
end;