Var
i: integer;
x: real;
begin
x := 0;
i := 0;
while i < 10 do
begin
inc(i);
x := x + 1/i;
end;
writeln(x);
end.
Если задание действительно правильно задано, то вот:
Program Zadacha;
Var K: Integer;
Begin
Write('K = ');
ReadLn(K);
WriteLn('A = ', K * 2);
WriteLn('B = ', K * 3);
WriteLn('C = ', K * 4);
ReadLn;
End. <span>
</span>