Как я понял вот она!
Лукас мне :3
//PascalABC.Net 3.1.0.1200
var
a, b: integer;
begin
a := -3;
b := -a - a;
a := a + 2;
a := -b + a * b;
Println(a, b);
end.
Вывод -12 6
Предполагается, что будет введено минимум одно значение.
varmax,a : integer;beginreadln(a);max := a;repeatreadln(a);if (a > max) and (a <> 0) thenmax := a;until a = 0;writeln(max);readln;end.
P.S. Если понравилось решение не забудь отметить как лучшше. ;)
Подробнее - на Znanija.com -
znanija.com/task/1506362#readmore
Думаю, что похоже ;)
program love;
uses GraphABC;
begin
line(20,60,20,180);
line(20,180,60,180);
line(60,180,120,100);
line(220,100,300,180);
line(300,180,380,260);
line(120,320,120,420);
line(120,420,100,420);
line(220,340,220,420);
line(220,420,260,420);
rectangle(60,180,300,320);
rectangle(120,20,220,100);
<span>end.</span>