что бы команды были гарантированно выполненны по крайней мере один раз нужно использовать цикл с постусловием Repeat
repeat
<em>операторы</em>
until <em>условие</em>
Var
a, b, c, d: integer;
begin
for a := 1 to 9 do
for b := 0 to 9 do
if b <> a then
for c := 0 to 9 do
if (c <> b) and (c <> a) then
for d := 0 to 9 do
if (d <> a) and (d <> b) and (d <> c) then
if a * b - c * d = a + b + c + d then
writeln(a, b, c, d);
end.
Я сделала на картинке в прикрепленном файле
Var x,f:real;
begin
write('Введите х:');
readln(x);
f:=sin(x)-cos(x);
writeln('sin(',x,')-cos(',x,')=',f);
end.
Тестовое решение:
Введите х:125
sin(125)-cos(125)=-1.40375497133289