Var
n:integer;
begin
readln(n);
if n > 10 then writeln(n, ' > ', 10);
if n < 10 then writeln(n, ' < ', 10);
if n = 10 then writeln(n, ' = ', 10);
<span>end.</span>
Var ar:array[1..10] of integer;
i,s:integer;
begin;
for i:=1 to 10 do
readln(ar[i]);
writeln('OK:');
for i:=1 to 10 do
if (i mod 2=0) and (ar[i] mod 2=0) then writeln(ar[i]);
<span>end.</span>
#include <iostream>
using namespace std;
int main()
{
double a,b;
cin>> a >> b;
if(a>b) cout << "Перше число більше";
else cout << "Друге число більше";
return 0;
}
var
x, y: real;
begin
read(x, y);
write((x * x - 7 * x + 6) / abs(y))
end.