Рассмотрите блок-схему. Напишите код программы,срочно плиз

var a,b,c,d:integer;

begin

readln(a);

readln(b);

readln(c);

readln(d);

m:=a*d;

n:=b*c;

println(m);

println(n);

end;