Var S:string;
begin
Writeln('Введите строку');
If not(Pos('ш',S)=0) then
Writeln('буква ш есть')
else
Writeln('буквы ш нету');
end.
And,or,not можно использовать только в условии.
В твоем случае тебе придется использовать операторные скобки begin end.
If (e=2) and (h>28) Then
begin
e:=3;
h:=1;
end;
<span>Автор этой задачи, наверное, хотел, чтобы правильным ответом
был вариант
№ В) радиоволны.
На самом деле, радиоволны в микроволновом излучении несут
информацию, например, о нарушении дипольной анизотропии реликтового излучения
которое говорит о свойствах Вселенной происходившнх 14 миллиардов лет назад,
Вторым по устойчивому хранению информации является молекула ДНК,
CD-Rom может
хранить информацию около 30 лет,
дискета гарантированное хранение 6 месяцев.</span>
var
n: integer;
function fibonachi(n: integer): integer;
begin
if (n = 1) or (n = 2) then fibonachi := 1
else fibonachi:= fibonachi(n - 1) + fibonachi(n - 2);
end;
begin
read(n);
writeln('F(', n, ') = ', fibonachi(n));
end.
------------------------------------------------------
var
n, i: integer;
a: array [1..3] of longint;
begin
read(n);
a[2] := 1;
a[3] := 1;
for i := 3 to n do
begin
a[1] := a[2];
a[2] := a[3];
a[3] := a[2] + a[1];
end;
writeln('F(', n, ') = ', a[3]);
end.
Я думаю сам разберёшься http://calculatori.ru/perevod-chisel.html