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ẻ

var m,n,k:integer;

begin

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('tong la : ',s);

readln;

end.

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.