Судя по коду ошибки, компилятор кажись не нашел файл) создай новый файл и назови main.cpp (в смысле название короткое латинское), перезапусти Visual Studio и радуйся
640*272*1бит = 174080 бит / 8 = 21760 байт / 1024 = 21,25 Кб
Var
best, m, s,i: integer;
begin
best := 10000000;
for i:= 1 to 3 do begin
write('min sec = ');
readln(m, s);
if best > m * 60 + s then best := m * 60 + s;
end;
writeln('Лучший = ', best div 60, ' min ', best mod 60, ' sec');
end.
Var x,y,p,i:integer;
begin
readln(x,y);
for i:=1 to abs(y) do p:=p+x;
if y<0 then p:=-p;
writeln(p);
<span>end.</span>