1)if y<0 then a:=y*y+5 else a:=6*y
2)if x=0 then y:=sin(x)
3)if x>b then k:=7*x div b else
if x=0 then k:=6*b*x else k:=5+x+b
{тут двойное ветвление}
Этого файла не существует,поэтому выдаёт ошибку
Папе 24 р. + 24 р.==48 + те 2рубля что она им отдала .3 рублю сидят в 48 р.
Var s,s1:string; p:integer;
begin
writeln('Введите строку:');
readln(s);
s1:=s+' ';
while s1<>'' do
begin
p:=pos(' ',s1);
if (p>1)and(s1[p-1]='я') then writeln(copy(s1,1,p-1));
delete(s1,1,p);
end;
<span>end.</span>