Убрала несколько блоков, т.к. считаю их лишними
Так как для хранения файлов отводится некоторое количество кластеров (количество кластеров определяется исходя из размера файла), то для хранения файла размером 1000 байт будет отведен один кластер, т.е. 4 килобайта.
Program consoles;var n, i, sum, count, reads: integer;beginreadln(n);for i := 1 to n do begin readln(sum); if(sum <= 3) then count := count + sum; end;readln(reads);if(reads = 1) then writeln(count);end.
Sub car()
Dim s1, s2 As Double
s1 = CDbl(InputBox("Введи первое число", "Ввод данных", 88))
s2 = CDbl(InputBox("Введи второе число", "Ввод данных", 46))
If s1 > s2 Then MsgBox (CStr(s1) + ">" + CStr(s2)) Else MsgBox (CStr(s1) + "<" + CStr(s2))
End Sub