Информатика! Turbo Pascal

Question

Составить программу на Turbo PacalВычислить: m=(система) max(a,b)-если x>0 и x^2+b^5+min(a,b) если x<=0 Информатика! Turbo Pascal

Svetlana Sarycheva · Accepted Answer

Не знаю, что изображено на второй картинке, но задача с первой картинки решается примерно так: 
 
PROGRAM test; 
 
VAR 
x, m, a, b :Real; 
 
BEGIN 
 
Write('Введите a, b, х: '); 
ReadLn(a, b, x); 
 
IF (x > 0) 
THEN BEGIN 
 IF (a > b) THEN m := a ELSE m := b 
 END 
ELSE BEGIN 
 IF (a > b) THEN m := b ELSE m := a; 
 m := m + x*x + b*b*b*b*b; 
 END; 
 
WriteLn('m = ', m); 
ReadLn(); 
 
END.