Петя и коля купили две одинаковые флешки каждая объемом 4 гб. петя записал фотографии израсходовав 34 мб, а коля записал фильм который занял столько места которое оставалось на флешке пети. каков общий оставшийся объем памяти двух флешек? 1) 4 гб 2) 8 гб 3) 2 гб 4) 3 гб 66 мб

program pr;

var mas: array[1..40] of integer;

i, sum: integer;

begin

randomize;

for i: =1 to 40 do mas[i]: =random(20);

for i: =1 to 40 do if mas[i]< =10 then sum: =sum+mas[i];

writeln ('сумма равна ', sum);

readln;

end.

программу проверил все работает

на pascal:

program sonik;

uses crt;

var a,b,c: string;

begin

readln (a);   readln (b);   readln (c);

writeln (' фигуры: ',a,b,c);

end.