Определите результат работы программы, написанной на языке паскаль. 1. s(a) = 6a*a программа: var a: real; begin readln(a); writeln(6*a*a); end. 2. var a,b,c: integer; begin for a : = 1 to 4 do begin readln ( b) ; if b > c then c: =b; end. 3. var a,b,c,ans: integer; begin readln(a,b,c); ans : = 0; if (a> 0) then inc(ans); if (b> 0) then inc(ans); if (c> 0) then inc(ans); writeln(ans); readln; end.
2. не работает (для завершения цыкла нужно писать end;
3. тут вообще какойто бред написанный