Программа на скрине! Надеюсь помог!
Program n1;
var n: integer;
begin
readln(n);
if n mod 12 = 0 then writeln('надо вынести ', n div 12, ' ведер')
else writeln('надо вынести ', (n div 12)+1, ' ведер');
end.
===== PascalABC.NET =====
begin
var s:= ReadlnString;
s.Substring(0,s.Length div 2).Println
end.
Var a,b,c:longint;begin readln(a,b); if b>a then begin c:=b; b:=a; a:=c; end; if (a mod 2=0) and (b mod 2=0) then write(a, : 2 = ,a/2) else if (a mod 2=1) and (b mod 2=1) then write(a, * 2 = ,a*2,; ,b, * 2 = ,b*2) else if (a mod 2=1) then write(a, + 1 = ,a+1) else write(b, + 1 = ,b+1); readln;end.
1 кбайт=1024 байт
1мегобайт=1024кбайт
1гигабайт=1024мегобайт