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

Question

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

---

Answer 1

133. Program XxX;var a, b, x : real;beginwrite('Введите площадь и количество населения: ');readln(a, b);x:=a/b;if a = 0 then writeln('Это не верно!')else x:= b/a;writeln('x = ', x:6:2)end.135. Program XxX;var a,b,c,s:real;begin

Comments

134.Program XxX;
var a, b, x : real;
begin
write('введите a и b: ');
readln(a, b);
if a = 0 then writeln('уравнение не имеет решений (это не уравнение)!')
else x := -b / a;
writeln('x = ', x:6:2)
end.

---

135. Program XxX;
var a,b,c,s:real;
begin
write('введите катеты: ');
write('a=');readln(a);
write('b=');readln(b);
c:=sqrt(a*a+b*b);
writeln('C=',c);
end.

---

134.Program XxX;
var a, b, x : real;
begin
write('введите a и b: ');
readln(a, b);
if a = 0 then writeln('уравнение не имеет решений (это не уравнение)!')
else x := -b / a;
writeln('x = ', x:6:2)
end.

---

133. Program XxX;
var a, b, x : real;
begin
write('Введите площадь и количество населения: ');
readln(a, b);
x:=a/b;
if a = 0 then writeln('Это не верно!')
else x:= b/a;
writeln('x = ', x:6:2)
end.

---

Извини, сначала не то ввел)