//Sorry I know only C++ language
#include<iostream>
using namespace std;
int main(){
<span> char a,b,c,d,a2,b2,c2,d2;</span><span>
cin>>a>>b>>c>>d;
</span><span> a2=a-48;
</span><span> b2=b-48;
</span><span> c2=c-48;</span><span>
d2=d-48;
</span><span> cout<<(a2+b2+c2+d2)%4;</span>
return 0;}<span>
</span>
var x:integer;
begin
writeln('Введите значение x: ');
readln(x);
if x<3 then
writeln('y = ',sqr(x))
else
if x>3 then
writeln('y = ',sqrt(x))
else
if x=3 then
writeln('y = ',2*x);
end.
===== PascalABC.NET =====
type
reals = file of real;
procedure CreateReals(fn: string; var f: reals);
begin
Rewrite(f, fn);
for var i := 1 to 101 do
Write(f, Random(-50.0, 50.0));
f.Close
end;
function GetAverage(f: reals): real;
begin
Result := f.Elements.Average;
end;
function CountElements(f: reals; m: real) :=
f.Elements.Where(p -> p < m).Count;
begin
var f: reals;
var fn := 'Reals.bin';
CreateReals(fn, f);
Reset(f, fn);
var avg := GetAverage(f);
avg.Println;
CountElements(f, avg).Println
end.