Это элементарно.
Разветвляющийся
Program wtf;
var a,b:integer;
begin
readln(a,b);
if(a=b) then write('числа одинаковы');
else write('числа разные');
end.
Возможно стоит выражение взять в скобки
На паскале
program m1;
var a: aarray [1..10] of integer;
i,n,k: integer;
begin
readln (n);
for i:= 1 to n do readln (a[i]);
k:= 0;
for i:= 1 to n do begin
if a[i]<>0 then k:= k+1;
end;
writeln (k) {если 0 нужно учитывать в количестве то...} writeln (k+1);
end.