var
N, V, K, T: real;
i: Integer;
begin
Write ('Сумма вклада: ');
ReadLn (N);
Write ('Стоимость велосипеда: ');
ReadLn (V);
Write ('Стоимость подержанного авто: ');
ReadLn (K);
Write ('Стоимость нового авто: ');
ReadLn (T);
for i := 1 to 10 do
N := N * 1.07;
Writeln ('Сумма вклада в конце срока = ' + FloatToStr (N));
if N >= T then
Writeln ('На эту сумму можно приобрести новое авто.')
else if N >= K then
Writeln ('На эту сумму можно приобрести подержанное авто')
else if N >= V then
Writeln ('На эту сумму можно приобрести велосипед')
else
Writeln ('На эту сумму нельзя приобрести транспортное средство');
end.
Вот так можно исправить, чтоб заработало
var
s, k: integer;
begin
s := 8;
for k := 2 to 8 do
s := s + 8;
writeln(s);
end.
Через фтп сервер между компьютерами
Var a,b:real;
begin
readln(a,b);
if(sqrt(b)<a) then b:=b*5
else b:=0;
writeln(b, ' - второе число');
end.