Var
x,y: integer;
begin
read(x);
y := x * x + 1;
write(y);
end.
Var a,b,s,u:integer;
begin
write('a = '); readln(a);
write('b = '); readln(b);
s:=a+b;
u:=2*s;
writeln('u = ',u);
end.
Пример:
<span>a = 5
b = 8
u = 26</span>
If x>y then begin writeln ('Не попал! Число больше!');goto m; end;
<span>if x<y then begin writeln('Не попал! Число меньше');goto m; end;</span>