Помогите нарисовать болк схемы!ПЛИЗЗЗЗ!

[vdv08]

1)Program laba_1;
uses crt;
var k,l,m:integer;
begin
readln(k,l,m);
if ((k mod l)=0 ) or ((l mod k)=0 ) then
WriteLn('пара K и L кратные');
if ((l mod m)=0 ) or ((m mod l)=0 ) then
WriteLn('пара L и M кратные');
if ((k mod m)=0 ) or ((m mod k)=0 ) then
WriteLn('пара K и M кратные');
readln;
end.

2)var k,l,m:integer;
begin
readln(k,l,m);
if k mod l=0 then writeln(k,' kratno ',l);
if k mod m=0 then writeln(k,' kratno ',m);
if l mod k=0 then writeln(l,' kratno ',k);
if l mod m=0 then writeln(l,' kratno ',m);
if m mod k=0 then writeln(m,' kratno ',k);
if m mod l=0 then writeln(m,' kratno ',l);
readln;
end.

[Alex21]

Вы издеваетесь?
Паскаль первый семестр.
Читаем учебники. Закрыто.