Решение смотри во вложении.
При любом а выражение равно 1
a) - фильмы
б) - отрезки (не замкнутые)
в) - цыфры,буквы и тому подобное.
1)
var a,b:integer;
begin
writeln('введите стороны прямоугольника:');
write('первая сторона равна:');readln(a);
write('вторая сторона равна:');readln(b);
write('площадь прямоугольника со сторонами ',a,' и ',b,' равна ',a*b);
end.
2)
Var x: integer;
Begin
write('введите число х=');
readln(x);
If x>=2 Then write('y=',sqrt(x))
Else write('y=',x);
End.