Построить циклические методы: 1. Вывести на экран значения линейной функции f=10x-5

1. var x: integer;

min: byte;

f: array[1..50] of integer;

begin

writeln(Введите начальное значение min);

readln(min);

for x := min to 50 do f[i] := (10 * x) - 5;

for x := 1 to (50 - min) do write(f, x, = , f[i]);

end

2.

var x: byte;

begin

x := x + 0.5;

while x lt;= 10 do begin

x := x + 0.5;

writeln(x, карат = , x * 0.2, грамма);

end;

end.