FreePascal.ru

Запись правильная.

Нам это на дом задали.
Вот само условие. Извиняюсь за качество.
http://storage8.static.itmages.ru/i/13/1211/h_1386785496_5662262_5f7060ea0c.jpg

program abx;
var x,y:real;
Begin
Write('Введите значение x=');
Readln(x);
if x<1 then y&#58;=cos*2*x-1
else if x>5 then y&#58;=sqrt(sqr(x)+3*x+1) else y&#58;=sqr(sin)*x+3&#46;25;
Writeln('y=',y&#58;8&#58;4);
Readln;
End&#46;
Кривая Блок схема.
http&#58;//storage7&#46;static&#46;itmages ...