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

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.

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

"у семи нянек дитя без глаза." - 30 символов(" -2, . -1, пробел-5, букв-22) ⇒

30*2=60 байт

60*8=480 бит

program p;

var s,a,b,c: string; begins: =' фигуры'; writeln('введите названия трёх фигур'); read(a,b,c); writeln(s,': ',a,', ',b,' и ',c); end.