fork download

copy

uses crt;
var
        so1,so2,tong:string;
        i,tam,nho,ht1,ht2:integer;
begin
        clrscr;
        nho:=0;
        write('nhap so thu nhat:');readln(so1);
        write('nhap so thu hai:');readln(so2);
        while length(so1) > length(so2) do
                so2:='0'+so2;
        while length(so2) > length(so1) do
                so1:='0'+so1;
        for i:=length(so1) downto 1 do
                begin
                        val(so1[i],ht1);val(so2,ht2);
                        tam:=(ht1+ht2+nho) mod 10;
                        nho:=(ht1+ht2) div 10;
                        str(tam,tong[i]);
                end;
        writeln(so1,' + ',so2,' = ',tong);
        readln;
end.

Free Pascal Compiler version 3.0.4+dfsg-22 [2019/01/24] for x86_64
Copyright (c) 1993-2017 by Florian Klaempfl and others
Target OS: Linux for x86-64
Compiling prog.pas
prog.pas(19,25) Error: Illegal expression
prog.pas(21,41) Warning: Variable "tong" does not seem to be initialized
prog.pas(23,4) Fatal: There were 1 errors compiling module, stopping
Fatal: Compilation aborted
Error: /usr/bin/ppcx64 returned an error exitcode

Standard output is empty