Решите, пожалуйста!!!
Не сложные задачки по информатике, уровня 9-10 класса

Задачки по-порядку. Не уверен насчет последней, там по-моему функция в точке 0 принимает 2 значения: 1 и 0. Не знаю правильно ли это, но я сделал так

1. 
Program First;
var v, r, h: real;
begin 
write(Введите R и H: ); 
readln(r,h);   
v := pi * sqr(r) * h / 3; 
writeln(V = , v);
end.

2.
Program Second;
var x, t, y: real;
begin 
write(Введите X и T: ); 
readln(x, t);   
if x lt; 0.5 then   
y := exp(ln(sin(x) / cos(x)) * 3) + sqr(x) 
else if x = 0.5 then   
y := sqrt(x + t) + 1 / t 
else if x gt; 0.5 then   
y := cos(x) + t * sin(x); 
writeln(Y = , y);
end.

3.
Program Third;
var x: real;
begin 
write(Введите X: ); 
readln(x);   
if (x gt; 0) and (x lt;= 1) then   
writeln(Y = 1) 
else if x lt; 0 then    
writeln(Y = , -x) 
else if x gt; 1 then   
writeln(Y = , x) 
else if x = 0 then   
writeln(Y = 0 и Y = 1);    
end.