Составьте блок-схему и программу для решения следующей . введите с клавиатуры два числа: к и л. если они положительны, то замените каждое на квадрат их суммы и выведите результаты на экран. если все числа отрицательны, то каждое сделайте равным наименьшему и выведите результаты. иначе, к приравняйте к 10, а л - к 15 и выведите результаты

procedure Algorithm;

var к,л: integer;

begin

Readln(к,л);

if к>0 and л>0 then

к := (к+л)^2;

л := к;

else

if к<0 and л<0 then

if к<л then

л := к;

else

к := л;

else

к := 10;

л := 15;

end.

блок схема во вложении, надо перерисовать аккуратнее, вот сама задача на паскале:

соственно код, протестирован на паскале:

program znz;
uses crt;
var k,l, kvsum:real;
begin
clrscr;
write('Input l:');
readln(l);
write('Input k:');
readln(k);
if(k>0) and (l>0) then
begin
kvsum:=k*k+l*l;
k:=kvsum;
l:=kvsum;
end
else
begin
if(k<0) and (l<0) then
begin
if(k<l) then l:=k else k:=l;
end
else
begin
k:=10;
l:=15;
end;
end;
writeln('k=',k:0:2);
writeln('l=',l:0:2);
readln;
end.