Правильно или нет? Turbo Pascal

Question

Program msc;
Var a,b,x,m,min,max:integer;
BEGIN
Writeln('Введите a,b,x');
READLN (a,b,x);
IF A>B then max:=a else max:=b;
IF A0 then
BEGIN
IF A>B then m:=a else m:=b;
if A>B then m:=b else m:=a;
m:=a and b
END;
IF x<=0 then
BEGIN
IF A<=B then m:=sqr(x)+b*b*b*b*b+m;
END;
WRITELN('m=',m);
READLN();
END.

[PASCAL]Program msc;
Var a,b,x,m,min,max:integer;
BEGIN
Writeln('Введите a,b,x');
READLN (a,b,x);
IF A>B then max:=a else max:=b;
IF A0 then
BEGIN
IF A>B then m:=a else m:=b;
if A>B then m:=b else m:=a;
m:=a and b
END;
IF x<=0 then
BEGIN
IF A<=B then m:=sqr(x)+b*b*b*b*b+m;
END;
WRITELN('m=',m);
READLN();
END.[/PASCAL]

Program msc;
Var a,b,x,m,min,max:integer;
BEGIN
Writeln('Введите a,b,x');

READLN (a,b,x);

IF A>B then max:=a else max:=b;

IF A0 then

BEGIN
IF A>B then m:=a else m:=b;
if A>B then m:=b else m:=a;
m:=a and b
END;

IF x<=0 then
BEGIN
IF A<=B then m:=sqr(x)+b*b*b*b*b+m;
END;

WRITELN('m=',m);
READLN();
END.

Люба Пинчукова · Accepted Answer

Нет, 
 
нужно делать условие относительно Х 
 
... 
 
begin 
 
if (x>0) then 
 if (A>B) then 
 m:=A 
 else m:=B; 
else 
 begin 
 m:=x*x+B*B*B*B*B; 
 if (A>B) then 
 m:=m+B 
 else m:=m+A; 
 end; 
....вывод.