Реализация циклов с условием в программах

[sea.son]

Помогите пожалуйста составить программу на паскале

[Mad_Cat]

1

function y(a,b,x:real):real;
begin
if x<1 then y:=1
else if x<=2 then y:=a*x*x*ln(x)
else y:=exp(a*x)*cos(b*x);
end;
var t,a,b:real;
begin
a:=-0.5;
b:=2;
t:=0;
while t<3+0.075 do begin
writeln('t=',t:6:2,' y=',y(a,b,t):8:2);
t:=t+0.15;
end;
end.

2

function y(a,x:real):real;
begin
if x<1.3 then y:=3.14*x*x-7/x/x
else if x=1.3 then y:=a*x*x+ 7*sqrt(x)
else y:=ln(x+7*sqrt(x));
end;
var t,a:real;
begin
a:=1.5;
t:=0.8;
while t<2+0.05 do begin
writeln('t=',t:6:2,' y=',y(a,t):8:2);
t:=t+0.1;
end;
end.