Viết chương trình 3 số nguyên m, n, k. tính và đưa ra màn hình tổng số các số lẻ

uses crt;
var m,n,k,tong:longint;
begin
   clrscr;
   write('Nhap 3 so m,n,k: ');readln(m,n,k);
   if m mod 2=1 then inc(tong,m);
   if n mod 2=1 then inc(tong,n);
   if k mod 2=1 then inc(tong,k);
   writeln('Tong: ',tong);
readln
end.

Program NhatNgu;
Uses crt;
Var m,n,k,s: longint;
Begin
        Clrscr;
        Write('Nhap m: '); Readln(m);
        Write('Nhap n: '); Readln(n);
        Write('Nhap k: '); Readln(k);

        s:=0;
        If m mod 2 = 1 then s:=s+m;
        If n mod 2 = 1 then s:=s+n;
        If k mod 2 = 1 then s:=s+k;

        Write('S = ',s);
        Readln
End.