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

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