Есть разные целые типы, но тебе подходит ShortInt: от -128 до 127
Построим график функции у=5х
график этой функции проходит через начало координат (точку (0;0)) для построения взяли х=1 и получили у=5
соединили (0;0) и (1;5)
т.к нам не даны точные координаты точки, то мы не можем утверждать, что прямая будет проходить через эту точку
uses crt;
var
x, y, A1, A2, B1, B2, C1, C2:real;
begin
clrscr;
writeln('enter A1:');
writeln('enter A2:');
writeln('enter B1:');
writeln('enter B2:');
writeln('enter C1:');
writeln('enter C2:');
read(A1,A2,B1,B2,C1,C2);
if (A2 * B1 - A1 * B2) = 0 then
writeln('Программа не имеет решений')
else
begin
x:= (B1*C2-B2*C1) / (A2*B1-A1*B2);
y:= (A2 * C1 - A1 * C2) / (A2 * B1 - A1 * B2);
end;
writeln('x=', x:10:2);
writeln('y=', y:10:2);
end.