var a,b,c,x,z: double;
begin
a:=4; b:=-1; c:=0;
while (a=4) do
write('Введите a: ');
readln(a);
if (a=4) then writeln('a не может быть равно 4!');
end;
while (b<=0) do
write('Введите b: ');
readln(b);
if (b<=0) then writeln('b не может быть меньше или равно 0!');
while (c=0) do
write('Введите c: ');
readln(c);
if (c=0) then writeln('c не может быть равно 0!');
x:=(7*a*b+(1/(c*c)))/(4-a);
z:=a+(x/sqrt(2*b));
writeln('x = ');
writeln(x);
writeln('z = ');
writeln(z);
end.
var a,b,c,x,z: double;
begin
a:=4; b:=-1; c:=0;
while (a=4) do
begin
write('Введите a: ');
readln(a);
if (a=4) then writeln('a не может быть равно 4!');
end;
while (b<=0) do
begin
write('Введите b: ');
readln(b);
if (b<=0) then writeln('b не может быть меньше или равно 0!');
end;
while (c=0) do
begin
write('Введите c: ');
readln(c);
if (c=0) then writeln('c не может быть равно 0!');
end;
x:=(7*a*b+(1/(c*c)))/(4-a);
z:=a+(x/sqrt(2*b));
writeln('x = ');
writeln(x);
writeln('z = ');
writeln(z);
end.