ALGORITMO QUE MUESTRA UNA SERIE GRÁFICA DE FORMA TRIANGULAR

Algoritmo programacion_work
    Definir F, C, S, Serie como Real;
    Escribir "19. SERIE GRÁFICA NUMÉRICA : ";
    Para F <- 1 Hasta 9 Con Paso 1  Hacer
        S <- 0;
        Serie <- 0;   
        Para C <- 1 Hasta 10 - F Con Paso 1  Hacer
            S <- (10 - F);
            Serie <- (Serie * 10) + S;
        FinPara
        Escribir Serie;
    FinPara      
FinAlgoritmo

serie = float()
for f in range(1,10):
    s = 0
    serie = 0
    for c in range(1,11-f):
        s = (10-f)
        serie = (serie*10)+s
    print(serie)

#include<stdio.h>
int main() {
    int c, f, s, serie;
    for (f=1; f<=9; f+=1){
        s=0;
        serie=0;
        for (c=1; c<=10-f; c+=1){
            s = (10-f);
            serie = (serie * 10) + s;
        }      
        printf("%d \n", serie);      
    }
    return 0;
}

#include<iostream>
using namespace std;
int main() {
    int c, f, s, serie;
    for (f=1; f<=9; f+=1){
        s=0;
        serie=0;
        for (c=1; c<=10-f; c+=1){
            s = (10-f);
            serie = (serie * 10) + s;
        }
        cout << serie << endl;
    }    
    return 0;
}

package programacion_work;
import java.util.Scanner;
public class serie_grafica {
    public static void main(String[] args) {
        int F, C;
        for(F = 1; F < 10; F++){
            for(C = 1; C < (11 - F); C++){
                System.out.print(10 - F);                
            }
            System.out.println("");
        }
    }          
}

Imports System.Console
Module serie_grafica
    Dim F, C As Integer
    Sub Main()
        For F = 1 To 9
            For C = 1 To 10 - F
                Write(10 - F)
            Next
            WriteLine()
        Next
        ReadLine()
    End Sub
End Module