luas dengan 2 proses pascal

program luas;
uses crt;
var
a,b,L,d:integer;
begin
clrscr;
writeln ('masukan panjang=');readln (a);
writeln ('masukan lebar =');readln(b);
L:=a*b;
writeln ('luas adalah:',L);
if ( L mod 2= 0 ) then
writeln ('genap')
else
writeln ('ganjil');
 readln;
 end.