Uses crt;
var a,b,c:integer;
begin
clrscr;
readln(a,b,c);
if (a >0) or (b>0) or (c>0) then writeln('True') else
writeln('False');
end.
Program z1;
const nmax[100];
var a,b:array of integer[1..nmax];
var i,j:integer;
begin
i=1;
while not eol do
begin
read(a[i]);
i++;
end;
readln();
j=1;
while not eol do
begin
read(a[j]);
j++;
end;
write(abs(j-i));
end.
<span>
1) {найти квадрат числа}</span>
<span /><span><span>var k:</span>real;</span><span />
<span>begin
</span><span>read(k);
</span>
<span>k:=k*k;
write(k);</span><span><span /><span>end.</span></span>
<span><span /></span>2) {задача с оценками}
<span><span><span><span>v</span></span></span></span><span><span><span><span>ar i:</span>integer; </span></span></span>
<span><span><span>a,b,c,d,e: 2..5;</span></span></span>
<span><span><span>sred:real;</span></span></span>
<span><span><span /><span>
begin
</span><span>write ('Введите оценки, после каждой Enter');</span><span /></span></span>
<span><span><span>read(a);
read(b);
read(c);
read(d);
read(e);
</span></span></span>
<span><span><span /><span>sred:=(a+b+c+d+e)/5;</span></span></span>
<span><span><span /><span /><span><span>if sred >= </span>4.5 then writeln('Тебе подарят плеер и роликовые коньки!')</span><span /></span></span>
<span><span><span /><span><span>else if (sred >=</span>3.5<span>) and (sred <</span>4.5<span>) then</span></span><span>writeln('Увы, тебе подарят только плеер');</span><span><span /></span></span></span>
<span><span><span><span /><span>end.</span></span></span></span>