Var a,b:real;
begin
readln(a,b);
if(sqrt(b)<a) then b:=b*5
else b:=0;
writeln(b, ' - второе число');
end.
Капюшон!!! в листке я показала как разобраться
3 раза.
После первого прохождения цикла
s=2; k=2;
после 2 прохождения цикла
s=5; k=3;
после 3 прохождения цикла
s=9; k=4;
при следующей проверки условие s<=7 не выполниться так как s>7
Друга ищи, а найдёшь - береги.
Старый друг лучше новых двух.
program z1;
var a,b,c:real;
begin
writeln('Введите a');
readln(a);
writeln('Введите b');
readln(b);
writeln('Введите c');
readln(c);
if (a>b) and (a>c) then writeln('a - наибольшее число') else
if (b>a) and (b>c) then writeln('b - наибольшее число') else
writeln('c - наибольшее число');
if (a<b) and (a<c) then writeln ('a-наименьшее число') else
if (b<a) and (b<c) then writeln ('b-наименьшее число') else
writeln ('c-наименьшее число');
if ((a>b) and (a < c)) or ((a < b) and (a > c)) then
writeln('a-среднее число')
else
if ((b > a) and (b < c)) or ((b < a) and (b > c)) then
writeln('b-среднее число')
else
writeln('c-среднее число');
end.