var
a: array [1..18] of integer;
y: boolean := false;
begin
for var i: integer := 1 to 18 do
Readln(a[i]);
for var i: integer := 1 to 18 do
if(a[i] = 19) then
begin
y := true;
break;
end;
if y then Writeln('Yes')
else Writeln('No');
end.
M=6/////////////////////////////////////
var
i, n, y: integer;
begin
write ('x= ');
readln (x);
if (x>0) then
y:=sin(2*x)
else
y:=1-(2*(sin(2*x)));
write(y);
end;
MCMXCV = 1995
M = 1000
CM = -100 + 1000 = 900
XC = -10 + 100 = 90
V = 5
1000 + 900 + 90 + 5 = 1995
Program program1;
var
x, y: real;
begin
writeln('Введите X: ');
readln(x);
y := x * 2 + 3;
writeln('y = ', y);
end.