доделать програмку

[dragun4ik]

program p2;
uses crt;
var x,y:real;
begin
WRITELN('BBEDITE 3NA4ENIE X');
READLN(X);
IF X>PI THEN
Y:=SQRT(EXP(X))-COS(X);
else
Y:=SQR(X)*(X);
WRITELN(' 3NA4ENIE y= ',y:4:4);
readln;
end.

[dragun4ik]

вот задание в файле

[profi]

program p2;
uses crt;
var x,y:real;
begin
WRITELN('BBEDITE 3NA4ENIE X');
READLN(X);
IF X>PI THEN
Y:={ТВОЯ ФОРМУЛА 1};
IF (X>=1)AND(Х<=2) THEN
Y:={ТВОЯ ФОРМУЛА 2};
WRITELN(' 3NA4ENIE y= ',y:4:4);
readln;
end.

Тебе осталось формулы свои вставить и все вместо текста "{ТВОЯ ФОРМУЛА 1}" и "{ТВОЯ ФОРМУЛА 2}".

[dragun4ik]

огромное ВАМ спасибо!!!!