uses crt;
var
x,c:real;
begin
write('Сколько стоит проездной? '); read(x);
write('Вы ездите без билета. Сколько составляет штраф? '); read(c);
write('За безбилетный проезд Вас оштрафовали за месяц на ',5*c,' рублей.');
if (5*c>x) then write('Это невыгодно. Купите проездной.')
else write('Это выгодней, чем покупать проездной каждый месяц.');
end.
Var a,b,sg:real;
Begin
writeln('Введите два неотрицательных числа a и b');
readln(a,b);
sg:=(sqrt(sqr(a*b)));
writeln('Среднее геометрическое чисел a и b ',sg);
<span>end.</span>
<script type="text/javascript">
var eu=71.3805321;
var dol=64.4205373;
var rub=prompt('Enter value in ruble:','rub');
alert('$:'+rub/dol+' eu:'+rub/eu);
<span> </script></span>
Program n1;
Uses CRT;
Const n=10;
Var a: array[1..n] of integer;
i,max,k: integer;
begin
ClrScr;
Randomize;
For i:=1 to n do
begin
a[i]:=random(50);
write(a[i]:3);
end;
For i:=1 to n do
If a[i] mod 2=0 then
If a[i]>max then
begin
max:=a[i];
k:=i;
end;
writeln;
Writeln('Элемент ',max,' с номером ',k);
readln
end.