Вот этих скобок нету на клавиатуре.
Если его параметр может принимать любое значение в пределах некоторого интервала!
const n=5;
var a: array [1..n] of real;
i: integer;
begin
for i:=1 to n do begin readln(a[i]);
if i mod 2=1 then a[i]:=sqr(i);
writeln(i,' элемент массива равен : ',a[i]);
end;
end.
Pascal:
program Main;
uses crt;
var a,b: integer;
begin
readln(a,b);
If(a>b) then writeln(b);
else writeln(a);
end.
C++:
#include <iostream>
int main() {
int a,b;
std::cin >> a >> b;
if(a >b) std::cout << b;
else std::cout << a;
system("pause");
return 0;
}