Question

ПОМОГИТЕ, ПОЖАЛУЙСТА!!!!! Определите результат работы программы, написанной на языке Паскаль. 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.

Answer 1

1. выведет 6*(то число что ты написал)*(то число что ты написал)
2. не работает (для завершения цыкла нужно писать end;
3. тут вообще какойто бред написанный