Pascal ifas

    if suma = i
       then kiek:=kiek + 1;
   if suma = i
       then writeln('Vienas iš tų skaičių: ',i);

kaip šį ifą galima sutraukti į vieną?

    if suma = i
       then kiek:=kiek + 1;
   if suma = i
       then writeln('Vienas iš tų skaičių: ',i);

 

kaip šį ifą galima sutraukti į vieną?

Kažkas panašaus, jei dar gerai prisimenu pascal'į :)

    if suma = i then
   begin
       kiek:=kiek + 1;
       writeln('Vienas iš tų skaičių: ',i);
   end

Kažkas panašaus, jei dar gerai prisimenu pascal'į :)

 

    if suma = i then
   begin
       kiek:=kiek + 1;
       writeln('Vienas iš tų skaičių: ',i);
   end

Tiksliai :) nušokau nuo proto per tuos darbus :) Dėkui