(3-3)*3+3=3
3+3-3:3=5
3+3+3-3=6
3+3+3:3=7
3*3-3:3=8
3:3*3*3=9
Var a,b: Integer;
begin
writeln('Введите a и b');
readln(a,b);
writeln('S=a*b=',a*b);
writeln('P=2*(a+b)=',2*(a+b));
end.
Uses crt;
var i,n:integer;
begin
readln(n);
for i:=1 to 9 do
writeln(i,'x',n,'=',i*n);
end.
D1)прямая горизонтальная линия
2) любой из этих рисунков
procedure DrawRectangle(x1,y1,x2,y2: integer);
Рисует границу прямоугольника, заданного координатами противоположных вершин (x1,y1) и (x2,y2)
От указания переменных зависит что у тебя будет прямоугольник или квадрат