Составить программу на языке pascal! даны три числа, написать программу, подсчитывающую количество чисел, равных нулю.

var 

  num, count: integer;

begin

    count: =0;

    for i: =1 to 3 do

    begin

        readln(num);

        if num=0 then count: =count+1

    end;

    writeln(count)

end.

program zadacha;

uses crt;

var

a,b,c,kol: integer;

begin

writeln('a=,b=,c=');

read(a,b,c);

kol: =0;

if a=0 then kol: =kol+1;

if b=0 then kol: =kol+1;

if c=0 then kol: =kol+1;

writeln('kolichestvo chisel ravnih nulu =',kol);

end.

первый для однократной записи

а второй для перезаписывания(тоесть на нем возможно перезаписывание)

var

x,y: real;

begin

x: =-1;

while x< =1 do

begin

y: =x*x*x;

writeln(y);

x: =x+0.1;

end;

end.