Помогите В зарании спасибо

Question

Помогите
В зарании спасибо

---

Answer 1

1) var x,y: real;
begin
writeln('vvedite x');
readln(x);
y:=sqrt(6-x*x)+4;
writeln('y=',y);
readln;
end.
2) var a,b,s: real;
begin
writeln('vvedite s');
readln(s);
a:=5;
b:=s/a;
writeln('b=',b);
readln;
end.
3)
var N: integer;
 begin
 writeln('N = ');
readln(N);
writeln('Первая цифра числа: ', N div 100);
readln;
 end.