Напишите программу для решения примера а=в/с, при условии, что ,с, не равно нулю

begin

  var (b, c) : = readreal2;

  if c < > 0 then write('a=', b / c)

  else print('с=0')

end.

var a, b, c: integer;

begin

read(b,c);

if (c> 0)and(c< 0) then a: =b/c write(a) else write('c=0');

end.

это для паскаля

1. utfa.fps

2.какую программу?

3. x(n)=5n²-4n-1

xn-нечётное тогда, когда n-чётное

x(0)=-1

x(2)=11

x(4)=63

x(6)=155

x(8)=287

x(10)=459

x(12)=671

x(14)=923

x(16)=1215

x(18)=1547

x(20)=1919

var a: integer; c1, c2, c3, c4: integer;

begin for a : = 1000 to 9999 do begin c1 : = a div 1000; c2 : = (a div 100) mod 10; c3 : = (a div 10) mod 10; c4 : = a mod 10; if (c1 < > c2) and (c1 < > c3) and (c1 < > c4) and (c2 < > c3) and (c2 < > c4) and (c3 < > c4) then writeln(a); end; end.