ПОМОГИТЕ НАПИСАТЬ ПРОГРАМУ

В чём твой вопрос? Спрашивай, что тебе не понятно в паскале, тебе ответят.

Виталий, вот решение:

uses
Crt;
var
a, b, c, x, y, z: Real;
begin
ClrScr;
Write('a= '); Readln(a);
Write('b= '); Readln(b);
Write('c= '); Readln(c);
Write('x= '); Readln(x);

if x<=a then y:= ln(x-c)
else
if x<b then y:= x+c
else y:= x/c;
z:= sqrt(y*y - sin(y));

Write('y= ', y:5:2, '; z= ', z:5:2);
ReadKey;
end.