Program First;
var
x, y : longint;
begin
readln(x);
y:=(x-7)*(x+5);
writeln(y);
end.
Лужа-ложа-кожа-кора-гора-горе
Паук-парк-пара-фара
Ответ:
Var
X, i: longint;
Begin
Readln(l);
For x := - 100 to 100 do
Begin
If l*x-5*x+2*l=2 then writeln(x);
End;
End.
Те, в которых не используется абсолютная адресация по отношению как к номеру столбца, так и номеру строки.
Var
x, y: real;
begin
readln(x);
if x <= 0 then y := 0
else y := x;
writeln(y:3:0);
end.