//Моя интуиция подсказывает мне, что это должно выглядеть так
var a,b:integer;
begin;
randomize;
a:=random(10);
readln(b);
if a=b then writeln('Угадала') else writeln('Не угадала, было загадано:',a);
<span>end.</span>
<em>// PascalABC.NET 3.3, сборка 1611 от 06.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (рост,вес):=ReadReal2('Введите рост в см и вес в кг:');
Writeln('Ваш ИМТ равен ',вес/Sqr(рост/100):0:1)
end.
<u>Пример</u>
Введите рост в см и вес в кг: 170 60
Ваш ИМТ равен 20.8
Program Z1;
Var n,i,s: real;
Begin
write ('n=');
read (n);
S:=0;
i:=3;
while i<=n do
Begin
i:=i+4;
S:=S+i;
End;
write ('S=',S);
End.